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1. Wstęp 


Podstawowym celem książki jest wprowadzenie do programowania w logice przy 
użyciu języka Turbo Prolog oraz wskazanie Czytelnikowi możliwości zastosowania 
tego programowania do rozwiązywania problemów technicznych. 

Idca programowania w logice jest kolejnym ważnym krokiem w rozwoju 
języków programowania. Rozwój ten prowadzi od języków, w których programista 
musi wskazać w najdrobniejszych szczegółach, jak dane zagadnienie ma być roz- 
wiązane, do takich, w których koncentruje się on coraz bardziej na określeniu tego, co 
ma być wyznaczone. W tym ostatnim przypadku podstawowym zadaniem staje się 
więc opisanie problemu, który ma być rozwiązany, a nie podanie algorytmu określają- 
cego sposób uzyskania rozwiązania. 

Takie podejście wprowadza do programowania zupełnie nową jakość. Jak 
trafnie napisano w pracy [13] „Prolog jest językiem bardzo wysokiego poziomu, a to 
oznacza wydatne zwiększenie efektywności pracy ludzkiej (tj. programowania) 
kosztem większego zużycia zasobów maszyny cyfrowej — w końcu maszyny do tego 
właśnie służą!”. 

Wspomniany koszt to większy rozmiar pamięci oraz dłuższy czas potrzebny 
do realizacji programów. Gwałtowny rozwój technologii układów scalonych sprawia 
jednak, że bardzo szybko zwiększają się zarówno wielkości pamięci, jakimi dysponują 
komputery, jak i szybkość ich działania. Jeśli się to weźmie pod uwagę, to zwiększone 
wymagania Prologu nie wydają się być tak istotne. Przeciwnie, ciągły rozwój w dzie- 
dzinie sprzętu wymaga zapewnienia nowych środków programowania, pozwalających 
zagospodarować jego potencjalne możliwości. O znaczeniu Prologu w tym względzie 
świadczy między innymi fakt, że zajął on centralne miejsce w japońskim programie 
rozwoju komputerów piątej generacji. Już dzisiaj jednak wykorzystanie Prologu przy- 
nosi bardzo interesujące rezultaty. Używa się go między innymi w dziedzinie sztucznej 
inteligencji, systemów doradczych, tłumaczenia języków itp. 

W ciągu ostatnich lat powstało kilka różnych wersji Prologu przeznaczonych 
dla użytkowników mikrokomputerów IBM PC/XT lub AT (np. Micro-Prolog, 
Prolog V). Zdaniem autorów najbardziej interesującą implementacją jest Turbo Pro- 
log firmy Borland. Cechuje go między innymi: 
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duza efektywność w wykorzystaniu zasobów komputera, 

— dogodny sposób współpracy z programistą, 

bogata biblioteka podprogramów (predykatów standardowych), 

—_ możliwość włączania do programu procedur napisanych w Pascalu i języku C (Turbo 
Pascal i Turbo C). 


W rozdziale 2 przedstawiono związek Prologu z logiką matematyczną. Roz- 
dział ten jest przeznaczony przede wszystkim dla tych Czytelników, którzy znają juz 
podstawy logiki. Autorzy starali się przedstawić w nim sposób, w jaki poszczególne 
pojęcia logiki odpowiadają określonym konstrukcjom języka Prolog. Zapoznanie się 
z treścią rozdziału 2 nie jest niezbędne do zrozumienia dalszej części książki. Dla tych 
Czytelników, którzy nie znają logiki matemetycznej, materiał przedstawiony w tym 
rozdziale może jednak stanowić wskazówkę, jakie problemy warto przestudiować, aby 
głębiej zapoznać się z ideą programowania w logice. 

Rozdziały 3, 4 i 5 są poświęcone nauce programowania w Turbo Prologu. 
Napisano je przy założeniu, że Czytelnik dysponuje już pewną elementarną wiedzą na 
temat programowania. W rozdziale 3 przedstawiono ogólną strukturę programu oraz 
wprowadzono podstawowe pojęcia języka Turbo Prolog. 

Rozdział 4 poświęcono strukturom danych. Omówiono w nim sposób defi- 
niowania struktur złożonych oraz podano przykłady użycia tych struktur. , 

W rozdziale 5 przedstawiono problemy związane ze sterowaniem. Omówlio- 
no interpretację deklaratywną i imperatywną programu, działanie aparatu wniosko- 
wania Turbo Prologu oraz sposobu, w jaki programista może wpływać na to działanie. 

Materiał przedstawiony w rozdziałach 3, 4 i 5 zaprezentowano w taki sposób, 
aby Czytelnik poznał intuicyjnie znaczenie poszczególnych pojęć, które są definio- 
wane precyzyjnie w ramach logiki formalnej. 

W rozdziale 6 przedstawiono i przeanalizowano przykład bardziej złożonego 
programu, ilustrującego możliwości praktycznego wykorzystania Turbo Prologu. 

Autorzy chcieliby podziękować Panom doc. Antoniemu Wysockiemu, doc. 
Tadeuszowi Kalewskiemu i prof. Zdzisławowi Karkowskiemu, dzięki których życzli- 
wości powstała ta książka. Pragną także podziękować kolegom z Instytutu Automatyki 
i Metrologii WSInż. w Zielonej Górze: Krzysztofowi Bilińskiemu, Zbigniewowi Jas- 
trzębskiemu, Andrzejowi Grzegorzewskiemu i Krzysztofowi Kolbuszewskiemu — za 
znaczną pomoc merytoryczną, oraz państwu Alicji Zając i Markowi Węgrzynowi — za 
pomoc w pracach redakcyjnych. 

Książka powstała w ramach prac prowadzonych w CPBP 02.20. 

Autorzy 


2. _ Związek Prologu z logiką matematyczną 


2.1. Wprowadzenie 


W rozdziale tym przedstawimy związek Prologu z logiką, omawiając m.in.: język 
klauzul i zasady wnioskowania metodą rezolucji. Zamieszczony materiał jest przez- 
naczony dla tych Czytelników, którzy znają podstawy logiki matematycznej. Pozostali 
Czytelnicy mogą go pominąć przy pierwszym czytaniu i powrócić do niego po zapoz- 
naniu się Z rozdziałami 3, 4 i 5. 

Język Prolog (sktót od słów programming in logic) w zasadniczej swojej części 
jest podzbiorem języka klauzulowej postaci logiki. Ponieważ koncepcja Prologu, 
w tym jego terminologia, opiera się na logice predykatów, programowanie w tak 
zwanym czystym Prologu (ang. pure Prolog) jest równocześnie konstruowaniem pew- 
nej teorii formalnej. Rozpatrując konkretną dziedzinę zastosowań autor programu 
stara się wyodrębnić i nazwać określone, niepodzielne obiekty oraz sprecyzować 
i nazwać funkcje i relacje zachodzące między nimi. Po wprowadzeniu podstawowych 
wyrażeń języka: stałych, termów i predykatów, będących nazwami obiektów, funkcji 
i relacji, następuje wypisanie odpowiednich aksjomatów. 

Na podstawie aksjomatów, w czysto mechaniczny sposób, można wydedu- 
kować istotne wnioski, dotyczące rozpatrywanej dziedziny wiedzy. W logice klauzul, 
a tym samym w Turbo Prologu, stosuje się tylko jedną regułę wnioskowania, zwaną 
zasadą rezolucji (p. 2.5). 


2.2. Słownik klauzulowej postaci logiki 


Słownik języka klauzul, zgodny ze składnią Turbo Prologu (rozdz. 3), zawiera nastę- 
pujące symbole: 


— stałe, 
— zmienne, 
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— n-argumentowe symbole funkcyjne, n > 0, 
— n-argumentowe symbole predykatowe, n > =0, 
— wyróżniony dwuargumentowy infiksowy symbol predykatowy =, 
— symbole logiczne and ior, 
— wyróżniony symbol logiczny implikacji (klauzuli warunkowej) :- lub if, 
— symbole interpunkcyjne i pomocnicze: () ,;::.[]. 
Za pomocą wprowadzonych symboli tworzy się abstrakcyjne napisy, będące wyraze- 
niami zbudowanymi zgodnie z pewnymi ogólnymi zasadami syntaktycznymi (skład- 
niowymi), podanymi w p. 2.3. Semantykę (znaczenie) poszczególnych symboli i wyra 
zeń wyjaśniono w p. 2.4. 
Stałe są reprezentowane przez: 


—_ symbole zbudowane z liter, cyfr i znaku podkreślenia, rozpoczynające się od małej 
litery, 

— symbole zbudowane z liter, cyfr i znaku podkreślenia, ujęte w cudzysłów, 

— ciągi cyfr. 

Przykładami poprawnie utworzonych symboli stałych są: al, alfa, beta_2, miasto_Poz- 

nan, piotr, "Piotr", "1990", 1999. 

Zmienne są reprezentowane przez symbole zbudowane z liter, cyfr i znaku 
podkreślenia. Symbol zmiennej rozpoczyna się od dużej litery. Przykładami popraw- 
nie zbudowanych symboli zmiennych są: Al, Alfa, Beta_2, Miasto, MIASTO, 
Miejsce_pracy. 

Symbole funkcyjne są reprezentowane przez małe litery lub ciągi liter, cyfr 
i znaków podkreślenia, rozpoczynające się od małej litery. Zeroargumentowe sym- 
bole funkcyjne są szczególnym przypadkiem stałych. Symbole funkcyjne dzieli się na 
funktory (symbole prefiksowe) oraz operatory (symbole infiksowe). 

Symbole predykatowe tworzy się z liter i cyfr oraz znaku podkreślenia. Zero- 
argumentowy symbol predykatowy nosi nazwę symbolu zdaniowego. Symbol predy- 
katowy, zwłaszcza dla n > 0, jest również nazywany syrnbolem relacyjnym. Przykładami 
poprawnie zbudowanych symboli predykatowych są: p, pl, p_1, jest_ojcem, jestSynem. 

W Turbo Prologu występuje standardowy, dwuargumentowy sy/abo! pre- 
dykatowy =. Warto zwrócić uwagę, że to samo oznaczenie zastosowano również dla 
operatora przypisania (por. p. 3.4). 

W rozpatrywanym języku kłauzul występują tylko dwa spójniki logiczne and 
oraz or, oznaczające odpowiednio koniunkcję oraz alternatywę. Symbol or w Turbo 
Prologu można zastąpić średnikiem, a and — przecinkiem. 

W wielu programach oprócz działań symbolicznych często występuje także 
potrzeba wykonywania obliczeń numerycznych, więc wprowadzono również możli- 
wość realizacji operacji arytmetycznych. W Turbo Prologu obliczenia numeryczne są 
oparte na trzech następujących założeniach: 


— istnieją stałe o traktowane jako liczby, odróżniane od innych stałych o charakterze 
czysto symbolicznym; 

— pewne operatory i funkcje są zdefiniowane jako rcalizowalne (ang. exacufable) 
w sensie numcrycznym, np.: + * / - log sin; podobną rolę, jak wyrażenia 
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arytmetyczne w klasycznych językach programowania, w Turbo Prologu odgrywają 
tzw. termy realizowalne (ang. exacutable terms), zbudowane wyłącznie z realizowal- 
nych funkcji i operatorów, liczb, zmiennych oraz innych realizowalnych termów; 

— standardowy operator = (w niektórych odmianach Prologu zapisywany jako is) 
przekształca rcalizowalny term na liczbę stanowiącą wynik wykonywanych obliczeń 
oraz uzgadnia ją z innem termem, zwykle ze zmienną. 


Wyrażenie X=T, w którym X jest zmienną, a T jest realizowalnym termem, jest rów- 
noważne instrukcji przypisania w Pascalu X : = 7. 
Semantyka predykatu T1=T2 jest następująca [23]: 
—_ w pierwszym kroku są wykonywane obliczenia numeryczne zdefiniowane po prawej 
stronie wyrażenia, czyli term T2 jest interpretowany jako wyrażenie algebraiczne; 
— predykat Tl=T2 jest prawdziwy, jeżeli T1 jest zmienną, która przyjmuje wartość 
obliczoną na podstawie T2, albo jest stałą równą tej wartości. W przeciwnym razie 
predykat jest fałszywy. 


2.3. Reguły tworzenia wyrażeń języka 


Język klauzul składa się z następujących wyrażeń: termów, formuł i klauzul. Zbiór 
termów jest zbiorem wyrażeń spełniającym następujące warunki: 


— stałe są termami, 

— zmienne są termami, 

— jezeli f jest n-argumentowym symbolem funkcyjnym, a £/, £2,..., tn są termami, to 
/U1,12,...,tn) jest również termem. 


Term składa się z funktora f, po którym następuje ujęty w nawiasy ciąg 
oddzielonych przecinkami argumentów — dowolnych termów. Jeżeli n =0, to pisze się 
f zamiast f(). W tym przypadku funktor oznacza stałą. 

Predykat składa się z symbolu predykatowego, po którym następuje ujęty 
w nawiasy ciąg oddzielonych przecinkami argumentów — dowolnych termów. W pre- 
dykatach zeroargumentowych nawiasy pomija się. Funktor jest nazwą funkcji, a pre- 
dykat nazwą relacji. 

Jeżeli p jest symbolem n-argumentowej relacji (n> =0), to predykat 
p(1,t2,..,tn) jest nazywany formułą atomową. W klauzulach warunkowych Prologu 
mogą również występować formuły molekularne, zbudowane z formuł atomowych 
i spójników logicznych and ior: 


— koniunkcji.4/ and .A2 and... and An, 
— alternatywy BI or B2 or... or Bm. 
Klauzula warunkowa jest wyrażeniem o postaci: 
Bl, B2.., Bm:-Al, A2,..., An n>=0, m> =0, 


w którym B],..,Bm oraz Al,....An są formułami atomowymi (predykatami). Przecinki 
po lewej stronie klauzuli są interpretowane jako spójniki or, a po prawej — jako 
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spójniki and, Ciąg formuł B1,...Bm nosi nazwę następnika klauzuli, a ciąg A1,....4n — 
poprzednika klauzuli. Formuły B1,...Bm w następniku tworzą alternatywę konkluzji 
klauzuli. Formuły atomowe A/,....An traktowane łącznie są uważane za koniunkcję 
warunków (przesłanek) klauzuli warunkowej. 

Rolę podobną do spójnika not odgrywa w Turbo Prologu predykat wyższego 
rzędu not(). Argumentami predykatu wyższego rzędu mogą być inne predykaty. Pre- 
dykat not nie w pełni jednak odpowiada negacji logicznej (por. p. 5.6.3). 


W Turbo Prologu korzysta się wyłącznie z klauzu! Horna, w których m =0 lub 
m=l.Jeślim=1in=0 


B1 :- 
to klauzula nosi nazwę faktu. W terminologii Turbo Prologu znak :- jest zastępowany 
w tym przypadku kropką 

Bl. 
Warunkowa klauzula Horna dła m=l1 i n>0 przyjmuje postać zwaną regułą: 


Bl :- Al, A2..., An 
lub 


BI] if AI and A2 and... and An 


Obydwa zapisy reguły są akceptowane przez Turbo Prolog. 
Jeżeli m =0, to klauzula jest pytaniem 


:-Al,..,An 
W Turbo Prologu pytanie podaje się w postaci: 


Goal: AI,...,An 
lub 


Goal: AI and ... and An 
W szerzej pojętej logice klauzul, tak jak w Turbo Prologu, są dopuszczalne 


pewne rozszerzenia, umożliwiające bardziej zwarty zapis zestawu klauzul o iden- 
tycznych lewych stronach. Zamiast klauzul: 


B1:-Al 
BI :-A2 
B1 :-An 
podaje się jedną klauzulę 


BI:-AI or AŻ or... r An 

Zamiast symbolu or stosuje się również średnik 
B1:-AI1;A2;...;An 

Klauzula dla n=0 i m=0 


nosi nazwę klauzuli pustej (p. 2.7) i oznacza sprzeczność (jest zawsze fałszywa). 
W sposób jawny w Turbo Prologu klauzula pusta nie występuje. 
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2.4. Semantyka języka klauzul 


Semantykę klauzul (ich znaczenie) przedstawimy nieco inaczej niż w ujęciu tradycyj- 
nym, stosowanym w logice matematycznej. W logice klasycznej szuka się interpretacji 
(modelu) dla pewnych już istniejących abstrakcyjnych wyrażeń. W praktycznym uję- 
ciu, stosowanym w Prologu, dla danej struktury interpretacyjnej (abstrakcyjna dzie- 
dzina obiektów wraz ze zdefiniowanymi w niej relacjami i funkcjami) tworzy się opis 
w języku logiki, będący specyficzną logiczną teorią formalną. Opis ten składa się 
z pewnych stwierdzeń, przyjętych za prawdziwe, zwanych aksjomatami specyficznymi 
teorii. W języku klauzul wszystkie aksjomaty są zapisane za pomocą klauzul: faktów 
i reguł. Zbiór klauzul-aksjomatów, tworzący formalną teorię specyficzną rozpatry- 
wanego problemu, w terminologii Prologu nosi nazwę bazy danych. 

Przez interpretację teorii rozumie się przyporządkowanie każdej stałej, zmien- 
nej, każdemu termowi i predykatowi pewnego składnika (obiektu, funkcji, relacji) 
występującego w systemie. Programując w języku logiki, zazwyczaj na bieżąco tworzy 
się teorię dla analizowanego lub projektowanego systemu. 

Zastosowanie logiki klauzul do określonej abstrakcyjnej dziedziny rozpo- 
czyna się od wyodrębnienia jej pewnych niepodzielnych, najprostszych elementów 
(obiektów), którym za nazwy służą stałe. Obiekty złożone są przedstawione za po- 
mocą termów złożonych. Zapis termu złożonego jest zbliżony do przyjętego w mate- 
matyce zapisu funkcji, w którym n-tce obiektów składowych przypisuje się pewien 
obiekt złożony. W takim ujęciu obiekt prosty jest szczególnym przypadkiem obiektu 
złożonego, przedstawionego funktorem zeroargumentowym [13]. 

Relacje zachodzące między poszczególnymi obiektami są odzwierciedlone za 
pomocą odpowiednich predykatów, przy czym zwyczajowo nazwa relacji jest równo- 
cześnie symbolem mnemonicznym związanego z nią predykatu (symbolem relacyj- 
nym). Tworzenie teorii (logicznej bazy danych) jest zakończone po wypisaniu stwier- 
dzeń uważanych za prawdziwe, w postaci klauzul (reguł i faktów). 


Przykład 2.4-1 


Przykładem dziedziny może być pewna grupa osób, pomiędzy którymi istnieją okreś- 
lone związki rodzinne. W naszym przykładzie będą to: chłopiec o imieniu Piotr, zbiór 
osób z nim spokrewnionych oraz pies Kalif. W języku potocznym elementy tej dzie- 
dziny można określić następująco: 

Piotr 

Agnieszka, siostra Piotra 

Ewa, matka Piotra 

Ojciec Piotra 

Kalif, pies Piotra. 
Zgodnie z przedstawioną konwencją notacyjną obiekty są oznaczane nazwami roz- 
poczynającymi się od małej litery: 

piotr 

agnieszka 
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ewa 
ojciec(piotr) 
kalif 


Przedostatni z obiektów przedstawiono za pomocą termu, w którym ojciec jest sym- 
bolem funkcyjnym, a piotr stałą. + 


W rozpatrywanej dziedzinie zachodzą pewne relacje, które można przed- 
stawić za pomocą predykatów. Spośród wielu powiązań typu relacyjnego możemy 


wybrać: 

a) osoba nazwana termem <osoba > jest członkiem rodziny: 
jest_członkiem_rodziny( < osoba > ) 

b) osoba nazwana termem <siostra > jest siostrą osoby nazwanej termem <osoba >: 
jest_siostrą( < osoba >, < siostra > ) 


c) osoba nazwana termem <matka> jest matką osoby nazwanej termem 
< dziecko >: 


jest_matką( < dziecko > ,< matka > ) 


d) osoba nazwana termem <ojciec> jest ojcem osoby nazwanej termem 
< dziecko >: 


jest_ojcem( < dziecko >, <ojciec > ) 
e) zwierzę nazwane termem < zwierzę > jest psem: 
jest_psem( <zwierzę >) 
f) osoby nazwane termami <ojciec >, < matka > są małżeństwem: 
są_małżeństwem( <ojciec > , <matka >) 
g) osobami są matka, ojciec, dziecko, siostra: 
<osoba> = <matka>; <ojciec >; <dziecko >; <siostra > 


W celu wskazania miejsc sensownego podstawiania poszczególnych termów jako 
argumentów rozpatrywanych predykatów, zastosowano tzw. ramki syntaktyczne [19]. 
Ramki syntaktyczne w Turbo Prologu są przedstawiane w sposób pośredni za pomocą 
deklaracji typu obiektu (dziedziny) i wskazania jego miejsca w odpowiednim predy- 
kacie. Konieczność deklarowania przynależności poszczególnych obiektów, reprezen- 
towanych przez termy, do określonego typu, a tym samym klasyfikacja termów, jest 
charakterystyczną cechą Turbo Prologu, odróżniającą go od innych odmian Prologu. 
W predykatach o liczbie argumentów większej lub równej dwa pojawia się 
problem interpretacji roli poszczególnych argumentów. W predykacie jest_matką(ag- 
nieszka,ewa) trudno bez komentarza odgadnąć, czy Agnieszka jest matką Ewy, czy 
odwrotnie. Wyjściem z sytuacji jest wskazanie roli poszczególnych termów wystę- 
pujących jako argumenty predykatu. Opis termu umieszcza się w nawiasach <...>, 
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aby wskazać Czytelnikowi, że jest to opis typu wyrażenia, a nie samo wyrażenie. 
Wyrażenia w nawiasach < > są nazywane deskryptorami. W rozpatrywanym przypad- 
ku predykat zapisuje się np. jako: 


jest_matką( < dziecko > ,<matka >) 


Relacja przedstawiona predykatem p(£1,...,tn) jest zdefiniowana przez poda- 
nie wszystkich n-elementowych podzbiorów elementów dziedziny, między którymi 
zachodzi ta relacja. Relację przedstawioną predykatem p definiuje się również jako 
odwzorowanic między każdym n-clementowym podzbiorem elementów dziedziny 
a wartościami logicznymi należącymi do zbioru ftnue, false), czyli (prawda, fałsz). 
Obydwa te podejścia są równoważne, jeśli założyć, że nie wymienionym n-elemen- 
towym podzbiorom zbioru elementów dziedziny odpowiada wartość logiczna false; 
jest lo tzw. założenie o zamkniętym świecie —- CWA (ang. cłosed world assumplion). 
W Prologu przyjmuje się, że baza danych jest przedstawiona przy założeniu CWA. 

Relację opisaną predykatem p(t1,...,1n) można rozpatrywać rozpoczynając od 
predykatu p(X1,...,Xn), w którym wszystkie termy są zmiennymi. W miejsce zmiennych 
można podstawić inne termy, będące stałymi lub termami złożonymi. Termy te są 
nazwami obiektów prostych lub złożonych występujących w rozpatrywanej dziedzinie. 
Tylko część podstawień opisuje rzeczywiste relacje zachodzące w rozpatrywanej dzie- 
dzinie i jedynie w tych przypadkach mówi się, że rozpatrywany predykat dla konkret- 
nej interpretacji i dła określonych wartości zmiennych jest prawdziwy. 

W łogice klasycznej rozpatruje się wszystkie tego rodzaju podstawienia, two- 
rząc tew. uniwersum Herbranda. Liczba rozpatrywanych podstawień może być znacz- 
nie zmniejszona, dzięki uwzględnieniu typów obiektów związanych z poszczególnymi 
argumentami predykatów. Rozwiązanie takie stosuje się w Turbo Prologu. 

Bczpośrednie podanie wszystkich wcieleń predykatów w postaci klauzul-fak- 
tów odpowiadających rozpatrywanym relacjom nie jest jedyną możliwością definio- 
wania predykatów. Zamiast wymieniania wszystkich wcieleń predykatu w postaci 
klauzul-faktów stosuje się często pośredni sposób definiowania relacji, za pomocą 
reguł zawierających zmienne (rozdz. 3). 

Klauzula B1, B2..., Bm :- Al, A2..., An jest prawdziwa, jeżeli co najmniej 
jeden z następników klauzuli (BI, B2,..., Bm) jest prawdziwy lub co najmniej jeden 
z poprzedników (A1, A2,..., An) jest (ałszywy. 

Klauzula jest fałszywa, jeżeli wszystkie następniki są fałszywc oraz równo- 
cześnie wszystkie poprzedniki są prawdziwe. 

Sposób odczytywania klauzul zawierających zmienne podamy na podstawie 
wyrażeń zawierających zmienne X i Y oraz ograniczoną liczbę formuł atomowych B, 
A114A2: 


BI(X) :- AI(X), A2(X) 
Dla każdego X, dla którego zachodzi A (X) i A2(X), zachodzi również B(X). 
B1(X) :- AI(X,Y), A2(X,Y) 


Istnieje takie Y, że dla każdego X, dla którego zachodzi A7(X,Y) i A2(X,Y), zachodzi 
również B1(X). 
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:-A1(Y) 
Nie istnieje takie Y, że zachodzi AI(Y); inaczej: dla każdego Y nie zachodzi AI(Y). 


W Turbo Prologu tę klauzulę stosuje się wyłącznie do zadawania pytań; w tym przy- 
padku ma ona postać Goal .4I(Y) 


BI(X):- 
Dla każdego X zachodzi BI(X). 


Przykład 2.42 


Dla dziedziny rozpatrywanej w przykładzie 2.4—1 wszystkie możliwe wcielenia pre- 
dykatów, uwzględniające sensowne dla przyjętej interpretacji, dopuszczalne podsta- 
wienia termów (wartościowania), przedstawiono za pomocą następujących klauzul: 

jest_członkiem rodziny(piotr) 

jest_członkiem rodziny(agnieszka) 

jest_członkiem_rodziny(ewa) 

jest_członkiem_rodziny(ojciec(piotr)) 

jest_siostrą(piotr, agnieszka) 

jest _matką(piotr, ewa) 

jest _matką(agnieszka, ewa) 

jest_ojcem(piotr, ojciec(piotr)) 

jest_ojcem(agnieszka, ojciec(piotr)) 

jest_psem(kalif) 

są _małżeństwem(ojciec(piotr), ewa) 


Spośród wielu wcieleń predykatów, przedstawiających relacje nie występujące dla 
rozpatrywanej interpretacji, można wymienić kilka przykładowych: 

jest_psem(piotr) 

jest_psem(ojciec(piotr)) 

jest_matką(piotr, agnieszka) © 


2.5. Wnioskowanie 


Logika zajmuje się relacjami między założeniami a wnioskami. Przykładowo, jeśli 
założy się, że Marian jest ojcem Piotra oraz że ojcowie są rodzicami, to można wy- 
ciągnąć wniosek, że Marian jest rodzicem Piotra. Dwa pierwsze stwierdzenia pociągają 
za sobą (implikują formalnie) trzecie stwierdzenie; inaczej mówiąc, trzecie stwierdze- 
nie jest konsekwencją dwu pierwszych. 

W logice formalnej wnioskowanie odbywa się na podstawie określonych 
zasad, umożliwiających wyprowadzenie pewnych wniosków ze znanych przesłanek. 

Wykonywanie programu w Prologu opiera się na jednej, bardzo uniwersalnej 
zasadzie wnioskowania, zwanej zasadą rezolucji. W sposób formalny zasadę tę zapisu- 
je się (z pewnym uproszczeniem) w postaci reguły cięcia: 
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Al,c :-BI,A2:-B2,c 
Al, A2:—BI,B2 

Dane są dwie klauzule, jedna z formułą atomową c po jej lewej stronie, a druga z tą 
samą formułą po jej prawej stronie. 47 iA42 oraz B] i B2 oznaczają zbiory dowolnych 
formuł atomowych. Za pomocą zasady rezolucji tworzy się nową kłauzulę (rezol- 
wentę), której lewa strona jest zestawieniem lewych stron odpowiednich klauzul, 
z pominięciem wycinanej formuły atomowej c, a prawa strona zestawieniem prawych 
stron tych klauzul, również z pominięciem wycinanej formuły c. Klauzule-przesłanki 
zapisano nad kreską, a klauzulę-wniosck — pod kreską. 

Termy występujące w formule c w obu łączonych klauzulach muszą spełniać 
warunki umożliwiające ich uzgodnienie. Uzgodnienie i cięcie jest wykonywane łącznie. 

Sposób uzgadniania (czyli unifikacji) wymaga wielu istotnych wyjaśnień (por. 
p. 3.4). Podstawą uzgadniania jest twierdzenie, że każde wystąpienie zmiennej 
w klauzuli może być zastąpione inną zmienną lub odpowiednim termem. Na przykład 
dla klauzuli: 

liczba _parzysta(X) :- dzieli_się przez(2,X), 
po uzgodnieniu jej z jedną z formuł: 

liczba_parzysta(2) 

liczba_parzysta(4) 

liczba_parzysta(Y) 
otrzymuje się odpowiednio: 

liczba parzysta(2) :- dzieli_się przez(2,2) 

liczba_parzysta(4) :- dzieli_się przez(2,4) 

liczba parzysta(Y) :- dzieli_się_przez(2,Y) 
Należy zwrócić uwagę, że każde wystąpienie określonej zmiennej musi być zastąpione 
tym samym termem. Z tego względu, dla klauzuli: 

niższy(X,Y) :- wyższy(Y,X) 
w wyniku uzgodnienia można uzyskać na przykład klauzule: 

niższy(piotr,Y) :- wyższy(Y,piotr) 

niższy(Y,Y) :- wyższy(Y,Y) 

niższy(Z,W) :- wyższy(W,Z) 
nie można natomiast uzyskać klauzul: 

niższy(X,Y) :- wyższy(Y,piotr) 

niższy(X,piotr) :- wyższy(Y,piotr) 

Stosując zasadę rezolucji nałeży pamiętać o lokalnym charakterze zmiennych 
w poszczególnych klauzulach (zmienne o tej samej nazwie, występujące w różnych 
klauzulach są uważane za różne). Z. tego względu przed wykonaniem cięcia należy 
ewentualnie przemianować zmienne w łączonych klauzulach. Na przykład, jeżeli łą- 
czymy dwie następujące klauzule: 


bI(X), a :-c1(X) 
b2(X) :-a,cz(X) 
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to należy przemianować np. zmienną X w drugiej klauzuli. W wyniku zastosowania 
zasady rezolucji otrzymujemy 


b1(X), b2(Y) .- c1(X), cz(Y) 


Przykład 2.5—1 
jest_ojcem(marian, piotr) :- 
jest_rodzicem(Osobal) :- jest _ojcem(Osobal ,Osoba2 ) 
jest_rodzicem(marian) :- 
Uzgadnianie polega na tym, że za zmienne Osobal i Osoba2 podstawia się w drugiej 
klauzuli stałe marian i piotr, dzięki czemu wycinana formuła jest_ojcem(marian, piotr) 
jest identyczna w obydwu klauzulach. Stwierdzenie zapisane pod kreską (rezolwenta) 


jest konsekwencją stwierdzeń zapisanych nad nią. W tym przypadku rezolwenta jest 
klauzulą-faktem. © 


Przykład 2.5—2 


Rozważmy dwie następujące klauzule: 
1) jest_dziadkiem(X,Z) :- ma wnuka(X,Z), 
jest _mężczyzną(X). 
2) ma wnuka(X,Z) :- jest_rodzicem(X,Y), 
jest_rodzicem(Y,Z). 
Po przemianowaniu w drugiej klauzuli zmiennej X naR, klauzula ta przyjmuje postać: 
ma_wnuka(R,Z) :- jest_rodzicem(R,Y), 
jest_rodzicem(Y,Z). 
Stosując teraz regułę cięcia otrzymuje się: 
jest_dziadkiem(R,Z) :- jest _mężczyzną(R), 
jest_rodzicem(R,Y), 
jest_rodzicem(Y,Z). 


Należy zwrócić uwagę, że w wycinanych formułach ma_wnuka(X,Z) i ma wnuka(R,Z) 
nastąpiło uzgodnienie zmiennych R i X. + 


W przypadku klauzul Horna zasada rezolucji przyjmuje prostszą postac: 
a:-CI; b:-C2,a 
b :- CI, C2 
Formuły a, b są formułami atomowymi (predykatami). 


Opisana zasada rezolucji jest podstawą działania aparatu wnioskowania Pro- 
logu. Kolejne kroki przekształcania bazy danych wynikające ze stosowania reguły 
cięcia nie są jednak widoczne dła użytkownika. Na przykład podczas śledzenia wy- 
konywania programu (por. p. D.4) w Turbo Prologu można obserwować jedynie 
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nagłówki rcalizowanych kolejno klauzul, a nie całe klauzule (rezolwenty), uzyskiwane 
kolejno w wyniku zastosowania zasady rezolucji. 


2.6.  Rezolucyjny system zaprzeczania 


W Prologu stosuje się dowodzenie twierdzeń z wykorzystanicm rezolucyjnego sys- 
temu zaprzeczania (łac. reductio ad absurdum). Baza danych zawiera zbiór klauzul, 
będących przesłankami. W celu udowodnienia pewnej klauzuli dokonuje się najpierw 
jej zaprzeczenia, a następnie dodaje się ją do bazy danych. Do otrzymanej w ten 
sposób rozszerzonej bazy stosuje się zasadę rezolucji, starając się wyprowadzić na 
podstawie tej zaprzeczonej klauzuli klauzulę pustą (:-). Programistę interesuje prze- 
de wszystkim wartościowanie predykatu występującego w zaprzeczonej klauzuli po 
uzyskaniu klauzuli pustej (tzn. przypisanie wartości poszczególnym zmiennym) albo 
potwierdzenie, że rozpatrywany predykat jest prawdziwy. 


Przykład 2.6-1 


Jako ilustrację rozpatrzmy ponownie bazę danych przedstawioną w przykładzie 2.5—1: 
jest_ojcem(marian, piotr):- 
jest_rodzicem(Osobal) :- jest_ojcem(Osobal, Osoba2) 
Aby znaleźć odpowiedź, kto jest rodzicem, do bazy danych dodaje się stwierdzenie, że 
X nie jest rodzicem: 
:- jest_rodzicem(X) 
Jest ono zaprzeczeniem stwierdzenia: 
jest_rodzicem(X) :- 
Odpowiedni zapis w Turbo Prologu ma następującą postać: 
GOAL: jest_rodzicem(X) 
Uzgodnienie formuł jest_rodzicem(X) oraz jest_rodzicem(Osobal) i zastosowanie cię- 
cia prowadzi do uzyskania klauzul: 
jest_ojcem(marian,piotr) :- 
:- jest_ojcem(X,Osoba2) 
Po kolejnym uzgodnieniu, polegającym na podstawieniu marian za X oraz piotr za 
Osoba2, i zastosowaniu cięcia, otrzymuje się klauzulę pustą. Szukanym rozwiązaniem 
jest więc X=marian. + 


Uwaga 


Opisując strategię wnioskowania należy uwzględnić kolejność wykonywania poszcze- 
gólnych kroków wnioskowania. Strategia ta wiąże się ściśle z proceduralną inter- 
pretacją programów napisanych w Turbo Prologu (rozdz. 5). 


3. Wprowadzenie do języka Turbo Prolog 


3.1. Podstawowa struktura programu 


W celu przedstawienia podstawowej struktury programu napisanego w Turbo Prolo- 
gu posłużymy się prostym przykładem określającym pewne związki rodzinne. 


Przykład 3.1-1 


1 DOMAINS 

2 imiessymbol 

3 

4 PREDICATES 

5 ojciec (imie,imie) 

6 matka (imie,imie) 

7 dziadek(imie, imie) 

8 

9 CLAUSES 

10 ojciec(stanislaw,janusz). /* Stanislaw jest ojcem Janusza */ 
11 ojciec(edmund,ewa). 

12 ojciec(janusz,agnieszka). 

13 ojciec(janusz,andrzej). 

14 

15 matka(cecylia,janusz). /* Cecylia jest matka Janusza  */ 
16 matka(jozefa,ewa). 

17 matka(ewa,agnieszka). 

18 matka(ewa,andrzej). 

19 

20 dziadek(A,B) if /* A jest dziadkiem B*/ 
21 ojciec(A,X) and 

22 ojciec(X,B). 

23 dziadek(A,B) if 
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24 ojciec(A,X) and 
25 matka(X,B). + 


Uwaga 


W programach pisanych w Turbo Prologu nie można używać polskich liter. Numery 
wierszy podane z prawej strony programu nie są jego częścią. Wprowadzono je po to, 
aby ułatwić jego omówienie. 


W przytoczonym programie można wyróżnić trzy sekcje: DOMAINS, PREDICATES 
1 CLAUSES. Sekcja DOMAINS (dziedziny) odpowiada definicjom typów w Pascalu i służy do 
określenia typów obiektów, którymi będzie operował program. W podanym przy- 
kładzie w wierszu 2 użytkownik deklaruje własną dziedzinę danych o nazwie imię, 
która odpowiada standardowej dla Turbo Prologu dziedzinie symbol (ciąg znaków). 
Jeśli nie deklarujemy własnych dziedzin, lecz korzystamy wyłącznie z dziedzin stan- 
dardowych, to sekcję DOMAINS można pominąć. 

Sekcja PREDICATES (predykaty) stanowi zapowiedź relacji zachodzących mię- 
dzy określonymi obiektami (same zaś relacje są zdefiniowane w sekcji CLAUSES). Każdy 
z elementów sckcji PREDICATES odpowiada w przybliżeniu nagłówkowi procedury 
w Pascalu, określając nazwę relacji oraz liczbę i dziedziny obiektów, między którymi 
relacja ta zachodzi. Na przykład w wierszu 5 zdefiniowano relację o nazwie ojciec, 
wiążącą ze sobą pary obiektów należących do dziedziny imię. 

Sekcja CLAUSES (klauzule) jest najważniejszą częścią programu prologowego. 
Poszczególne klauzule służą do zdefiniowania relacji między poszczególnymi obiek- 
tami. Na przykład klauzula podana w wierszu 10 oznacza, że Stanisław jest ojcem 
Janusza, lub inaczej, że obiekt stanislaw jest w relacji ojciec z obiektem janusz (słowa 
stanislaw i janusz pisane małymi literami są symbolami konkretnych osób). 

Zbiór klauzul definiujących określoną relację tworzy procedurę. W oma- 
wianym programie występują trzy procedury: ojciec, matka i dziadek. 


Uwagi 

e W Turbo Prologu nazwy wszystkich zmiennych muszą zaczynać się od dużej litery, 
a nazwy stałych należących do dziedziny symbol — od małej litery lub muszą być 
ujęte w cudzysłów. Nazwy janusz lub "Janusz" oznaczają stałe, a nazwa Janusz — 
zmienną. 

e Wszystkie klauzule tworzące daną procedurę muszą być zapisane obok siebie. 
Każda klauzula jest zakończona kropką. 

e Niekiedy używa się zamiennie określeń procedura i predykat. Aby uniknąć nie- 
porozumień, w dalszej części książki przez procedurę będziemy rozumieli zawsze 
zespół klauzul o tej samej nazwie, a przez predykat — jeden z elementów sekcji 
PREDICATES lub nazwę relacji między określonymi obiektami. W tym ostatnim sensie 
można powiedzieć, że predykat jest zdefiniowany za pomocą odpowiedniej proce- 
dury, np. predykat ojciec jest zdefiniowany za pomocą procedury zapisanej w wier- 
szach 10-13. 
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e Tekst komentarza w Turbo Prologu rozpoczyna się znakami: /* (ukośnik, gwiazd- 
ka), a kończy znakami: */ (gwiazdka, ukośnik). Inny dogodny sposób podawania 
komentarzy polega na poprzedzeniu treści komentarza znakiem % (procent). Jako 
komentarz traktuje się wtedy cały tekst od znaku % do końca danego wiersza. 
Dobrym zwyczajem jest komentowanie znaczenia poszczególnych argumentów 
w sekcji PREDICATES. W omawianym przykładzie sekcja ta po dopisaniu komentarzy 
mogłaby np. wyglądać następująco: 

PREDICATES 

% ojciec (Ojciec „Dziecko) 
ojciec (imie „imie ) 

% matka (Matka  „Dziecko) 
matka (imie „imie  ) 

% dziadek (Dziadek,wnuk  ) 
dziadek (imie „imie  ) 


e Sekcje DOMAINS, PREDICATES i CLAUSES można zapisywać oddzielnie dla wybranych 
grup procedur, dzięki czemu poprawia się czytelność programu, np. 
DOMATNS 
imie=symbo| 


PREDICATES 
% ojciec(Ojciec, Dziecko) 
ojciec(imie , imie  ) 
% matka(Matka, Dziecko) 
matka(imie , imie  ) 


CLAUSES 
ojciec(edmund,ewa). 
ojciec(stanislaw, janusz). 
ojciec(janusz,agnieszka). 
ojciec(janusz,andrzej). 
matka(jozefa,ewa). 
matka(cecylia,janusz). 
matka(ewa,agnieszka). 
matka(ewa,andrzej). 


PREDICATES 
% dziadek(Dziadek, Wnuk) 
dziadek(imie _, imie) 


CLAUSES 
dziadek(A,B) if 
ojciec(A,X) and 
ojciec(X,B). 
dziadek(A,B) if 
ojciec(A,X) and 
matka(X,B). 
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Oprócz omówionych powyżej, zasadniczych sekcji programu można używać 
ponadto sekcji: GOAL, GLOBAL DOMAINS, GLOBAL PREDICATES i DATABASE. Omówimy je w dal- 
szej części książki. 


3.2. Fakty i reguły 


Każda z klauzul może mieć postać faktu lub reguły. W przykładzie 3.1-1 faktami są 
wszystkie klauzule tworzące procedury ojciec i matka, regułami natomiast — klauzule 
tworzące procedurę dziadek. 

Fakty są stwierdzeniami, że zachodzą określone relacje między obiektami; 
mają charakter bczwarunkowy i są zawsze prawdziwe. W ich zapisie występuje jedynie 
nazwa relacji oraz zestaw argumentów (w nawiasach). 

Reguły mają charakter warunkowy — relacja zapisana po lewej stronie słowa 
if jest prawdziwa jedynie wówczas, gdy są prawdziwe wszystkie warunki zapisane po 
prawej stronie tego słowa. Na przykład klauzulę: 


dziadek(A,B) if ojciec(A,X) and ojciec(X,B) 


w której użyto zmiennych A, 8, X, można odczyiać: dla każdej osoby A i osoby B: A jest 
dziadkiem B, jeśli istnieje taka osoba X, że A jest ojcem X i X jest ojcem B. 

Każda reguła składa się z dwóch części: nagłówka i treści, rozdzielonych 
słowem if. Nagłówck jest utworzony przez nazwę relacji (predykatu) oraz listę argu- 
mentów, a treść — przez warunki oddzielone spójnikami and. 


Uwaga 


Stosując terminologię z dziedziny logiki, można powiedzieć, że reguła jest stwier- 
dzeniem warunkowym (implikacją), w którym konkluzja odpowiada nagłówkowi re- 
guły, a koniunkcja warunków — treści reguły. 


Fakty oraz reguły tworzą bazę danych programu. Część bazy danych, utwo- 
rzona przez fakty, jest zdefiniowana w sposób bezpośredni, a część utworzona przez 
reguły — w sposób pośredni. 

Należy zwrócić uwagę, że zmienne A, B oraz X zostały użyte w procedurze 
dziadek bez wcześniejszej deklaracji. W programach napisanych w Turbo Prologu nie 
deklaruje się bowiem zmiennych. Typ zmiennej wynika z pozycji. na której występuje 
ona na liście argumentów danej relacji (typy lub inaczej mówiąc dziedziny odpowied- 
nich argumentów danej relacji są zdefiniowane w sekcji PREDICATES). Na przykład 
zmienna A występująca w klauzuli zapisanej w wierszach 20—22 należy do dziedziny 
imię, ponieważ jest ona użyta jako pierwszy argument relacji dziadek (wiersz 20) i jako 
pierwszy argument relacji ojciec (wiersz 21). Pozycje te, zgodnie z sekcją PREDICATES, 
odpowiadają dziedzinie imię. 

Należy wspomnieć jeszcze, że zmienne mają charakter lokałny, tzn. że są 
dostępne tylko w ramach jednej klauzuli. Oznacza to, że na przykład zmienna A użyta 


24 3. Wprowadzenie do języka Turbo Prolog 


w pierwszej klauzuli procedury dziadek i zmienna A użyta w drugiej klauzuli tej 
procedury, to dwie zupełnie różne zmienne. 


Uwagi 
e Słowo if stosowane w zapisach reguł Turbo Prologu można zastąpić znakiem :- 


utworzonym z dwukropka i myślnika, a słowo and znakiem przecinka. 
e Warunki tworzące treść reguły są także nazywane podcelami. 


3.3. Zadawanie pytań 


Zauważmy, że program przedstawiony w p. 3.1 zawiera jedynie definicje relacji, nie 
ma natomiast sekcji, która odpowiadałaby programowi głównemu w innych językach 
programowania. Rolę tę odgrywają w Prologu pytania na temat bazy danych, które 
może zadawać użytkownik. Nazwa pytanie jest używana wymiennie z nazwą cel, gdyż 
można powiedzieć także, że użytkownik określa cel, jaki w danej chwili ma zreali- 
zować program. 

Pytania można zadawać od chwili, gdy po skompilowaniu i uruchomieniu 
programu, na ekranie ukaże się napis GOAL: . 

W najprostszym przypadku pytanie ma postać nazwy jednego z predykatów, 
po której wymienia się odpowiednie argumenty. Używając odpowiednio stałych 
i zmiennych można zadać wiele różnych pytań dotyczących bazy danych programu. 
Na przykład dla programu 3.1-1 mogą to być między innymi następujące pytania: 


ojciec(janusz,andrzej) Pytanie czy Janusz jest ojcem Andrzeja? 


Odpowiedź: 

YES. 

ojciec(janusz,X) Pytanie czyim ojcem jest Janusz? Odpowiedź: 

X=agnieszka 

X=andrzej 

2 solutions (dwa rozwiązania) 

dziadek (edmund, ewa) Pytanie czy Edmund jest dziadkiem Ewy? 
Odpowiedź: 

NO 

dziadek(X,ewa) Pytanie kto jest dziadkiem Ewy? Odpowiedź: 

No solutions (nie ma rozwiązania, gdyż na podstawie podanej 
bazy danych nie można wskazać żadnego dziadka 
Ewy). 


dziadek (Dziadek ,Wnuk) Pytanie o wszystkich dziadków i wnuków. 
Odpowiedzi: 

Dziadek=stanislaw 

Wnuksagnieszka 
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Dziadek=stanislaw 
Wnuksandrzej 
Dziadek=edmund 
Wnuksagnieszka 
Dziadek=edmund 
Wnuk=andrzej 

4 solutions 


Jeżeli pewien argument predykatu aktualnie nas nie interesuje, to w jego 
miejsce można użyć w pytaniu tzw. zmiennej anonimowej. Ma ona postać znaku 
podkreślenia, a jej wartość nie jest wyznaczona. Na przykład gdybyśmy chcieli zapy- 
tać: „Kto jest dziadkiem?”, a imiona wnuków by nas nie interesowały, to odpowiednie 
pytanie miałoby postać: 

dziadek(X,_) 


W wyniku zadania pytania dziadek(X,_) imię tego samego dziadka będzie wymieniane 
wielokrotnie, jeżeli ma on wielu wnuków. Sposób eliminowania tych powtórzeń omó- 
wimy w rozdziale 5. 

Jak widać z przytoczonych powyżej przykładów, użycie stałej jako argumentu 
pytania sprawia, że argument ten jest traktowany jako parametr wejściowy odpowied- 
niej procedury, a użycie zmiennej (nie licząc zmiennej anonimowej) — że jest on 
traktowany jako parametr wyjściowy, którego wartość należy wyznaczyć. Charakte- 
rystyczną cechą Prologu jest przy tym to, że dla większości predykatów nie występuje 
trwały podział parametrów na wejściowe i wyjściowe. Kierunek przepływu informacji 
zależy jedynie od postaci pytania. Na przykład, w pytaniu: dziadek(stanisław, Wnuk) — 
pierwszy argument jest parametrem wejściowym, a drugi wyjściowym; w pytaniu 
dziadek(X,andrzej) jest natomiast odwrotnie. 

Pytania mogą mieć także charakter złożony, tzn. mogą składać się z kilku 
pojedynczych pytań, połączonych spójnikami and lub or. Poszczególne podcele pyta- 
nia złożonego, zawierającego tylko spójniki and, można traktować jak warunki two- 
rzące treść reguły. Oznacza to, że Prolog znajdzie odpowiedź na takie pytanie wów- 
czas, gdy wszystkie podcele tego pytania są jednocześnie spełnione; w przeciwnym 
razie odpowie N0. Na przykład pytanie złożone: 

ojciec(X,andrzej) and ojciec(X,agnieszka) 


jest pytaniem o osobę, która byłaby jednocześnie ojcem Andrzeja i Agnieszki. Kom- 
puter odpowie X=janusz (zakresem zmiennej w pytaniu złożonym, w którym występują 
jedynie spójniki and, są wszystkie podcele tego pytania, dlatego tez X oznacza tu tę 
samą zmienną). Podobnie, chcąc zapytać o dziadka Agnieszki ze strony matki, mo- 
żemy użyć następującego pytania: 
ojciec(D,M) and matka(M,agnieszka) 
Komputer odpowie D=edmund oraz dodatkowo M=ewa. Z kolei w odpowiedzi na pytanie: 
ojciec(Ojciec,Dzl) and ojciec(Ojciec,Dz2) and Dzl<>Dz2 
zostaną wymienione imiona tych ojców (oraz ich dzieci), którzy mają przynajmniej 
dwoje dzieci. W pytaniu tym użyto standardowego operatora <> relacji różny. 
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Jeśli w pytaniu złożonym użyto spójnika or, to poszczególne części pytania 
połączone tym spójnikiem są traktowane jako oddzielne, niezależne od siebie pytania. 
Na przykład na pytanie złożone: 

ojciec(janusz, andrzej) or dziadek(janusz, andrzej) 
uzyskamy odpowiedź pozytywną (Yes), jeśli Janusz jest ojcem Andrzeja lub jego 
dziadkiem. Podobnie, gdy interesuje nas jedna z dwóch osób: osoba, która jest jedno- 
cześnie ojcem Andrzeja i Agnieszki lub osoba będąca matką Janusza,to odpowiednie 
pytanie ma następującą postać: 

ojciec(X,andrzej) and ojciec(X,agnieszka) or matka(X, janusz) 

Zakres zmiennych w pytaniu złożonym, w którym występują spójniki or, jest 
ograniczony do poszczególnych części pytania połączonych tymi spójnikami. Oznacza 
to, że na przykład ostatnie z podanych pytań można zapisać także następująco: 

ojciec(X,andrzej) and ojciec(X,agnieszka) or matka(Y,janusz) 

(zmienne X występujące po lewej i prawej stronie spójnika or w poprzedniej wersji 
pytania są traktowane jako zupełnie inne znienne). 


Uwaga 


Mimo, że program napisany w Turbo Prologu jest kompilowany, może mieć on 
charakter interakcyjny. Użytkownik może bowiem zmieniać pytania testując różne 
predykaty lub zbiory predykatów bez potrzeby dołączania nowego kodu. W języku 
Pascal odpowiadałoby to możliwości wywoływania dowolnych procedur, tzn. zmiany 
programu głównego już po kompilacji programu. 


3.4. Operacje arytmetyczne i porównania. Uściślenie 
pojęcia zmiennej 


Prolog jest językiem przeznaczonym głównie do operacji symbolicznych, przez co 
niezbyt dobrze nadaje się do pisania programów zawierających złożone obliczenia 
numeryczne (np. z powodu braku tablic). Jednak w przypadku pojedynczych operacji 
możliwości Turbo Prologu są zbliżone do tych, jakie ma na przykład Pascal. Można 
wykonywać podstawowe operacje arytmetyczne na liczbach całkowitych (integer) 
i rzeczywistych (rea1), używając odpowiednio operatorów: +, -, *, /, divi mod. Można 
także porównywać liczby, wyrażenia arytmetyczne, znaki i ciągi znaków, używając 
operatorów relacji: = , > , <, >= , <=, <>, Na przykład: 
A+5<>2*B/10 


(wszystkie zmienne występujące w porównywanych wyrażeniach muszą mieć ustaloną 
wcześniej wartość) 
janusz < jaroslaw 


(porównanie kolejnych liter zgodnie z ich pozycją w tablicy AŚCII). 
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W odróżnieniu od czystego Prologu, język Turbo Prolog ma bogaty zestaw 
wbudowanych funkcji matematycznych, na przykład sin, log, exp, sqrt. Dopuszczalny 
jest także zapis złożonych wyrażeń arytmetycznych w rodzaju 

Z = l+sin(log(X+Y)) 


Pełny zestaw standardowych operatorów, funkcji oraz predykatów arytmetycznych 
podano w p. D.5. 


Uwagi 

e Bardziej złożonych obiektów, o których będzie mowa w rozdziale 4, nie można 
porównywać korzystając bezpośrednio z operatorów logicznych, lecz należy napi- 
sać odpowiednią prostą procedurę (por. p. 4.2). 

e Operator = może być zarówno operatorem arytmetycznym przypisania, jak i ope- 
ratorem porównania. Pierwsza sytuacja występuje tylko wówczas, gdy po jego lewej 
stronie występuje pojedyncza zmienna, której nie nadano wcześniej żadnej war- 
tości. 


Poniżej podano dwa przykłady programów, w których używa się operatorów 
arytmetycznych i operatorów porównania. W przykładzie 3.4—1 przedstawiono sposób 
obliczenia rezystancji zastępczej połączenia równoległego dwóch oporników. Rezy- 
stancję tę określa się wzorem: 


Rzax = /(UR1 + UR2) 


Przykład 3.4—1 
DOMAINS 
rezystancja=real 
PREDICATES 
obliczRezystancje(rezystancja, rezystancja, rezystancja) 
CLAUSES 
obliczRezystancje(R_zast, R1, RZ) 
:- R_zast = 1 / (1/R1 + 1/R2). 
Przykładowy cel: 
GOAL: obliczRezystancje(Rwy, 10, 20) 0 


W przykładzi * 3.4—2 wykorzystano operatory porównania w procedurze słu- 
żącej do obliczania wartości bezwzględnej liczby. 


Przykład 3.4—2 
DOMAINS 
liczbas=real 
PREDICATES 
modul (liczba, liczba) 
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CLŁAUSES 
modu] (Liczba, WartoscBezwzgledna) 
:- Liczba>=0 and 
WartoscBezwzgledna=Liczba. 
modu] (Liczba, WartoscBezwzgledna) 
:- Liczba<0 and 
WartoscBezwzgledna=-Liczba. A 


Jak wynika z powyższych przykładów, sposoby zapisywania operacji arytmetycznych 
1 operacji porównania w językach Turbo Prolog i Pascal są analogiczne. Jedyna róż- 
nica polega na tym, że w Prologu zamiast dwóch znaków := oznaczających przy- 
pisanie, stosuje się jeden znak =. Analogia z językiem Pascal przestaje jednak obo- 
wiązywać, gdy chcemy zapisać wyrażenie, które w Pascalu ma postać 

X:=X+1 


1 oznacza „zmiennej X przypisz jej dotychczasową wartość zwiększoną o jeden”. 

W Prologu zmienna, której w danej klauzuli nadano już raz pewną wartość, 
nie może ulec zmianie aż do końca realizacji tej klauzuli. Oznacza to, że pojęcie 
zmiennej jest w Prologu zupełnie inaczej rozumiane, niż w Pascalu, Basicu, języku C 
itp. Jak obrazowo napisano w pracy [13] „nazwy tej nie należy ani przez chwilę 
kojarzyć ze zmienną znaną z klasycznych języków programowania”. 

Używając terminologii Prologu, o każdej zmiennej można powiedzieć, że 
w danej chwili może być ukonkretniona lub nieukonkretniona (swobodna). Zmienna 
nieukonkretniona jest to zmienna, której nie nadano jeszcze żadnej wartości. W trak- 
cie realizacji danej klauzuli zmienna taka może zostać ukonkretniona, np. w wyniku 
przypisania X=5, lub też może zostać powiązana z inną zmienną, np. w wyniku operacji 
X=Y. Dwie powiązane zmienne reprezentują w istocie tę samą zmienną identyfikowaną 
jedynie przez dwie różne nazwy. Oznacza to, że ukonkretnienie jednej z tych zmien- 
nych pociąga za sobą również ukonkretnienie drugiej. 

Ukonkretnienie lub powiązanie zmiennych może odbywać się w wyniku ope- 
racji przypisania lub w wyniku tzw. uzgadniania parametrów między podanym celem 
a odpowiednim nagłówkiem klauzuli. Uzgodnienie zachodzi wówczas, gdy cel i klau- 
zula mają taką samą nazwę, oraz wówczas, gdy można uzgodnić ze sobą kazdą kolejną 
parę ich parametrów (rys. 3.4—1). Każdą parę parametrów można uzgodnić, jeżeli: 

— obydwa parametry są zmiennymi (powiązanie zmiennych), 
— jeden parametr jest zmienną, a drugi stałą (ukonkretnienie zmiennej), 
— obydwa parametry są stałymi o tej samej wartości. 

Jak już wspomniano, zmienna ukonkretniona nie może ulec zmianie aż do 
końca realizacji danej klauzuli. Oznacza to, że zmienna taka jest już ukonkretniona we 
wszystkich podcelach danej klauzuli. Stosując kryteria z klasycznych języków pro- 
gramowania, można powiedzieć, że zmienna po ukonkretnieniu przestaje być zmien- 
ną, gdyż nie można jej już zmieniać. Oczywiście ukonkretnienie i powiązanie nie ma — 
po zakończeniu realizacji klauzuli — znaczenia dla innych klauzul, ze względu na 
lokalny charakter zmiennych (identyczne nazwy zmiennych występujące w różnych 
klauzulach reprezentują sobą różne zmienne). 
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PREDICATES 
alfa(integer, char) 


Nagłówek klauzuli | Cel Efekt uzgodnienia 


alfa(5, 'a') alfa(X,Y) X=5 Y='a' 
(ukonkretnienie zmiennych) 


alfa(5, 'a') | alfa(5,Y) Y='a' 
(ukonkretnienie zmiennej) 
alfa(5, Y) alfa(5, 'a') Y='a' 


| | (ukonkretnienie zmiennej) 
alfa(5, R) | alfa(5,X) | X=R 


(powiązanie zmiennych) 

Próba uzgodnienia kończy się 
niepowodzeniem, gdyż nie można 
| uzgodnić ze sobą stałych 5 i 2 


alfa(5, 6) alfa(2,Y) 


Rys. 3.4—1. Przykłady uzgadniania parametrów 


Biorąc pod uwagę to, co powiedziano o charakterze zmiennych, wspomnianą 
wcześniej operację zapisaną w Pascalu za pomocą instrukcji: 

X:=X+1 
można zrealizować w Prologu używając dodatkowej zmiennej, np. 

X1=X+1 
Problem powstałby jednak np. wówczas, gdybyśmy chcieli zmieniać wartość zmiennej 
wiełokrotnie — tak jak w przypadku obliczania sumy kolejnych liczb. Odpowiada temu 
następujący algorytm zapisany w Pascalu: 

suma: =0; 

for i: = 1 to N do 

suma: =suma +1; 

Problem ten można rozwiązać wykorzystując lokalny charakter zmiennych prolo- 
gowych i budując odpowiednią procedurę rekurencyjną (por. p. 3.5). 


Uwaga 

Jeżeli wyrażenie występujące po prawej stronie znaku równości zawiera choćby jeden 
operator arytmetyczny, to wszystkie zmienne w tym wyrażeniu muszą być wcześniej 
ukonkretnione. 


Wynika stąd, ż2 wszystkie predykaty zdefiniowane za pomocą procedur za- 
wierających operacje arytmetyczne mają charakter jednokierunkowy, czyli że wy- 
stępuje w nich trwały podział na parametry wejściowe i wyjściowe. Na przykład dla 
programu z przykładu 3.4-2 można podać cel: 

modul (-5,Modul] ) 


nie można natomiast podać celu: 
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modu] (Liczba,5) 


gdyż pierwszy parametr predykatu występuje w procedurze modul po prawej stronie 
znaku równości. Dla porównania, w przykładzie 3.1-1 można było podać zarówno cel 
dziadek(Dziadek,agnieszka), jak i cel dziadek(stanisław,Wnuk). 

W przypadku relacji porównania zawsze muszą być ukonkretniane wyrażenia 
występujące po obydwu stronach operatora. 


3.5. Procedury rekurencyjne 


Z rekurencją mamy do czynienia wówczas, gdy w definicji jakiegoś obiektu powo- 


łujemy się na definiowany właśnie obiekt. Powszechnie znana jest na przykład rcku- 
rencyjna definicja silni: 


1 dla n=6 
ni= 
n * (n-1)! dla n>0 
Rekurencja jest jedną z fundamentalnych technik programowania w Prologu. W pun- 
kcie 4.3 przedstawimy struktury danych zbudowane w sposób rekurencyjny, tutaj 
natomiast — procedury rekurencyjne. Procedury te odgrywają podobną rolę, jak in- 
strukcje pętli w klasycznych językach programowania. 
Najczęściej procedura rekurencyjna składa się z dwóch części: 
— ze zbudowanej nierekurencyjnie klauzuli definiująccj przypadek kończący reku- 
rencję (dla silni odpowiada on stwierdzeniu, że 0! = 1); 
— z klauzuli, która ma postać rekurencyjnie zbudowanej reguły; w treści tej reguły 


następuje ponowne wywołanie definiowanej procedury, lecz tym razem już z in- 
nymi argumentami. 


Przykład 3.5—1 
PREDICATES 
4 silnia(N , NI ) 
silnia(integer, integer) 
CLAUSES 
silnia(0,1). % klauzula konczaca rekurencje 
silnia(N,Nsi1) if 4 klauzula podstawowa 
N> 0 and 
M= N-l and 


silnia(M,Msil) and 
Ńsil = N*Msil. + 
W pierwszej z podanych klauzul stwierdza się fakt, że silnią zera jest jeden. Drugą 
z klauzul możemy natomiast odczytać następująco: liczba oznaczona przez Nsil jest 
silnią liczby N, jeżeli są spełnione jednocześnie wszystkie poniższe warunki: 
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liczba N jest większa niż zero, 

liczba oznaczona przez M jest równa H-1, 
liczba oznaczona przez Msi1 jest silnią liczby M, 
liczba Nsil jest iloczynem liczb N oraz Msil. 

Ze względu na to, że w procedurze silnia używa się operacji arytmetycznych, 
ma ona charakter jednokierunkowy, tzn. nie pozwala obliczyć wartości liczby na 
podstawie wartości silni tej liczby. 

Jak już wspomniano, w Prologu nie ma instrukcji pętli takich, jak while, for 
itd. Zamiast nich stosuje się rekurencję. W przykładzie 3.5—2 podano sposób obli- 
czenia sumy kolejnych dodatnich liczb całkowitych, czyli sposób realizacji algorytmu, 
któremu w Pascalu odpowiada użycie pętli: 


suma: = (0; 
fori:= lto Ndo 
suma := Suma +i 


Przykład 3.5—2 


PREDICATES 
% suma(liczba „sumaLiczb) 
suma(integer,integer ) 
CLAUSES 
suma(0,0). % klauzula konczaca rekurencje 
suma(N,N_suma) if % klauzula podstawowa 
N>0 and 
M=N-1 and 
suma(M, M suma) and 
N_suma=N+M suma. o 


Uwaga 


Należy uświadomić sobie, że poza szczególnym przypadkiem tzw. prawostronnej re- 
kurencji (p. 5.8) kolejne wywołania procedury rekurencyjnej powodują rezerwowanie 
nowych obszarów pamięci, niezbędnych do przechowywania kolejnych wcieleń 
zmiennych. Proces ten może spowodować zajęcie całej dostępncj pamięci komputera 
i tym samym przerwanie działania programu. 


3.6.  Deklaratywność programu prologowego 


Prolog jest językiem deklaratywnym, tj. opisowym, a nie algorytmicznym. Zadanie 
programisty polega tu przede wszystkim na określeniu relacji logicznych, jakie za- 
chodzą między poszczególnymi obiektami, zamiast, jak w klasycznych językach pro- 
gramowania, na wskazaniu ciągu operacji, które ma wykonać komputer, aby wy- 
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znaczyć pożądany wynik. Projektując program prologowy programista nie koncen- 
truje się więc na tworzeniu algorytmu decydującego o przebicgu procesu obliczeń, 
lecz na opisie tego, co ma być obliczone. 

Typowym programem deklaratywnym był program z przykładu 3.1—-1, opi- 
sujący stosunki rodzinne. Poniżej podano inny przykład takiego programu. Jego za- 


daniem jest symulacja działania układu cyfrowego, którego schemat przedstawiono na 
rysunku 3.6—1. 


Rys. 3.6-1. Schemat układu, którego 
działanie symuluje program 


Przykład 3.6-1 


DOMAINS 
bit = integer 


PREDICATES 
% brAnd (we ,we „wy ) 
brAnd (bit,bit,bit). 
% brNot (we „wy ) 
brNot (bit,bit). 
% uklad (A ,B ,C ,D „,E „F ,G ) 
uklad (bit,bit,bit,bit,bit,bit,bit). 


CLAUSES 
brAnd(0,0,0). 
brAnd(0,1,0). 
brAnd(1,0,0). 
brAnd(1,1,1). 
brNot(0,1). 
brNot(1,0). 
uklad(A,B,C,D,E,F,G) 
if 
brAnd(D,F,G) and 
brNot(E,F) and 
brAnd(A,B,D) and 
brAnd(B,C,E). + 


Zadanie programisty polegało tu na utworzeniu bazy danych opisującej strukturę 
układu. Dwie pierwsze procedury programu definiują używane w tym układzie bramki 
And i Not. Trzecia procedura opisuje strukturę układu. Na przykład zapis brAnd(D,F,G) 
oznacza, że sygnały występujące w punktach D, F, G znajdują się w relacji brAnd. Użycie 
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tych samych zmiennych w warunkach klauzuli, reprezentujących poszczególne bram- 
ki, oznacza istnienie połączeń między odpowiednimi końcówkami tych bramek. 
Jeżeli chcemy na przykład sprawdzić, jaki będzie stan sygnału G dla różnych 
wartości A i B, gdy C=0, to odpowiednie pytanie powinno mieć następującą postać: 
uklad(A,B,0,_,_,_,_,G) 
(dla tych sygnałów, które nas aktulnie nie interesują, użyto zmiennych anonimowych). 
Poniżej podano dwa inne pytania: 
GOAL: uklad(A,B,1,D,E,F,1) 
Jaki jest stan wymienionych sygnałów, jeżeli C i G są równe jeden? (komputer odpowie 
No solutions, gdyż stan taki nie jest możliwy); 


dla jakich wartości sygnału A sygnał wyjściowy G będzie równy jeden? 


Uwaga 


Prolog zawiera także pewne elementy o charakterze imperatywnym (rozkazowym), 
z których korzysta się przy bardziej zaawansowanym programowaniu. Do problemu 
tego powrócimy w rozdziale 5. 


4. Struktury danych 


4.1. Dziedziny standardowe i podstawowe operacje 
wejścia-wyjścia 


Turbo Prolog różni się od innych wersji Prologu koniecznością deklarowania dziedzin 
poszczególnych argumentów występujących w danym predykacie. Programista ma do 
dyspozycji 6 podstawowych dziedzin, z których może ewentualnie definiować dziedzi- 
ny złożone (por. p. 4.2 i 4.3). Są to: 

e char — dziedzina znaków; stałe należące do tej dziedziny umieszcza się w apo- 
strofach, np. 'a'; 

© integer — dziedzina liczb całkowitych z przedziału od —32768 do 32767; 

© real — dziedzina liczb rzeczywistych; największa wartość bezwzględna liczb tego 
typu wynosi 1E + 308, a najmniejsza, nie licząc zera, 1E—307; 

e string — dziedzina napisów (inaczej ciągów znakowych); stałe należące do tej 
dziedziny zapisuje się jako dowolne ciągi znaków ujęte w cudzysłowy, np. "Janusz", 
"sala 505"; napisy zapisywane w treści programu mogą zawierać do 255 znaków, 
maksymalna długość napisu wczytywanego z pliku lub tworzonego przez program 
wynosi 64 KB; 

© symbol — dziedzina zbliżona do dziedziny string; stałe należące do tej dziedziny 
mogą mieć postać: 

— ciągu liter, cyfr i znaków podkreślenia zaczynającego się od małej litery, 
— ciągu dowolnych znaków ujętego w cudzysłów; 
e file — dziedzina plików (p. 4.5). 


Uwaga 


Dziedziny string i symbol mogą być używane wymiennie (automatyczna konwersja), 
ale są inaczej przechowywane w pamięci. Uzgodnienia parametrów między celem 
a nagłówkiem klauzuli oraz operacje porównywania są wykonywane szybciej na obiek- 
tach typu symbol, a przetwarzanie napisów — na obiektach typu string. Większość 
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predykatów standardowych Turbo Prologu operujących ciągami znakowymi jest zde- 
finiowana dla dziedziny string. Można jednak używać ich także dla dziedziny symbol. 


Stałe należące do poszczególnych dziedzin standardowych mogą być oczy- 
wiście danymi wejściowymi lub wyjściowymi programu. Wiemy już, że dane wejściowe 
można wprowadzać do programu przez wymienienie ich w pytaniu, na przykład 

GOAL: silnia(5,5i1) 


Sposób ten jest jednak dosyć niewygodny, gdyż użytkownik musi np. pamiętać zna- 
czenie 1 kolejność parametrów wywoływanego predykatu. Aby wyeliminować tę nie- 
dogodność, należy zastosować w programie odpowiednie standardowe predykaty 
pozwalające odczytać dane z klawiatury i wyświetlać na ekranie odpowiednie pole- 
cenia, informacje itp. W przykładzie 4.1-1 przedstawiono sposób użycia dwóch takich 
predykatów: readlnt i write. Przykład ten jest modyfikacją programu podanego 
w p. 3.5. Zawiera dodatkowo procedurę wyliczSilnie, której zadaniem jest wczytanie 
parametru Liczba (ukonkretnienie zmiennej Liczba przez odczytanie wartości podanej 
z klawiatury) oraz wywołanie właściwego predykatu wyliczającego wartość silni. 


Uwaga 


Jeśli predykat zawierający zmienną nieukonkretnioną nie został podany jako cel 
(GOAL:), łecz jest warunkiem pewnej reguły (wiersz 9 w przykładzie 4.1-1), to po 
ukonkretnieniu tej zmiennej jej wartość nie jest automatycznie wyświetlana na ekra- 
nie. Dlatego w przykładzie użyto odpowiednich predykatów write (wiersze 10 i 11). 


Przykład 4.1-1 


1 PREDICATES 

2 wyliczSilnie 

3 % silnia(n „ ni ) 

4 silnia(integer, integer) 

5 CŁAUSES 

6 wyliczSilnie if 

7 write("Podaj liczbe : ") and 
8 readlnt(X) and 

9 silnia(X, Xsil) and 


10 write("Xl=") and 

11 write(Xsil). 

12 

13 silnia(0,1). % klauzula konczaca rekurencje 
14 silnia(N,Nsil) if % klauzula podstawowa 

15 N>0 and 

16 M=N-l and 

17 silnia(M,Msil) and 


18 Nsil = N*Msil. + 
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W przykładzie tym użytkownik może podać cel GOAL: wyliczSilnie, po którym pro- 
gram poprosi o podanie liczby, lub też może skorzystać bezpośrednio z predykatu 
silnia, tzn. podać GOAL: silnia(5,Silnia). 

W przypadku procedury wyl iczSi lnie trudno mówić o jej interpretacji dekla- 
ratywnej, ponieważ nie ma ona charakteru opisu relacji logicznych zachodzących 
między poszczególnymi obiektami. Procedura ta jest raczej podobna do procedur 
napisanych w klasycznych językach programowania, tzn. zawiera ciąg instrukcji do 
wykonania (por. rozdz. 5). 

Użycie predykatów zapisywania i odczytywania pozwala umieścić cel wew- 
nątrz samego programu. Za każdym razem, gdy uruchomimy taki program, będzie on 


wykonywany z tym samym celem. Umieszcza się go w specjalnej sekcji programu 
o nazwie GOAL. 


Przykład 4.1--2 


PREDICATES 
wyliczSilnie 
silnia(integer,integer) 
GOAL 
wyliczSilnie 
CLAUSES 
% dalej jak w przykladzie 4.1-1. ? 


Jeśli cel główny jest podawany z zewnątrz, tzn. gdy program nie ma sekcji GOAL, to 
automatycznie są wyświetlane wszystkie możliwe rozwiązania (dla kazdego rozwią- 
zania są wyświetlane wartości wszystkich zmiennych, które były parametrami tego 
celu). Na przykład, jeżeli dla programu: 
PREDICATES 
ojciec(string,string) 
CLAUSES 
ojciec(ryszard,michal). 
ojciec(bernard,szymon). 
ojciec(waldemar, tomek). 


zadamy z zewnątrz pytanie GOAL: ojciec(Ojciec,_), to otrzymamy trzy odpowiedzi. 
Jeżeli natomiast cel jest umieszczony wewnątrz programu, w sekcji GOAL, to jest znaj- 
dowana tylko jedna odpowiedź. Jeśli na przykład podany powyżej program uzu- 
pełnimy o następujący zapis: 
GOAL 
ojciec(Ojciec,_), write("Ojcem jest: ", Ojciec) 


to otrzymamy odpowiedź: Ojcem jest: ryszard (użycie predykatu write jest niezbędne, 
gdyż w tym przypadku wartości zmiennych nie są wyświetlane automatycznie). 
Poniżej podano standardowe predykaty Turbo Prologu umożliwiające odczy- 
tywanie za pośrednictwem klawiatury zmiennych należących do dziedzin: char, in- 
teger, real, string i symbol oraz predykaty write i nl związane z wyświetlaniem. 
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e Wczytywanie zmiennych typu char 
— readChar (Znak) — wczytanie jednego znaku bez oczekiwania na naciśnięcie klawi- 
szą Enter. 
— inKey(Znak) — sprawdzenie zawartości buforu klawiatury; jeśli znajdują się w nim 
jakieś znaki, to jest wczytywany pierwszy z nich; jeśli nie, to predykat zawodzi. 
e Wczytywanie zmiennych typu integer 
— readlInt (Liczba) — wczytanie jednej liczby całkowitej; jeśli podano obiekt niezgod- 
ny z typem integer, to predykat zawodzi. 
e Wczytywanie zmiennych typu rea] 
— readReal (Liczba) — wczytanie jednej liczby rzeczywistej; jeśli podano obiekt nie- 
zgodny z typem real, to predykat zawodzi. 
e Wczytywanie zmiennych typów string i symbol 
— readln(Wiersz) — wczytanie jednej zmiennej tekstowej (typu string lub symbol); 
z klawiatury można wczytać do 127 znaków, z innych urządzeń do 64 KB; zawodzi, 
gdy naciśniemy klawisz Esc. 
Wyświetlanie 
— write(argumentl, argument2, ...) — wyświetlenie podanego ciągu stałych i zmien- 
nych (por. p. 4.5.2 i D.2.3). 
— nl — ustawienie kursora na początku następnego wiersza ekranu (por. p. 4.5.2 
i D.2.3). 
W chwili wykonywania operacji odczytywania zmienna, którą mamy odczytać, musi 
być nieukonkrctniona. 

W przeciwieństwie do języka Pascal, Turbo Prolog ma oddzielne predykaty 
do odczytywania zmiennych poszczególnych typów. Predykaty te mogą mieć tylko 
jeden argument. Oznacza to, że na przykład zamiast trzech predykatów readInt (X), 
readlnt(Y), readlnt (Z) nie można użyć jednego — readlnt(X,Y,Z). 

Występujące w stałych typu string połączenia znaku 1 z pewnymi stałymi 
typu char i integer, mają specjalne znaczenia: 


in — znak nowego wiersza, 
Mt — znak tabulatora, 
MLiczba — znak, któremu w kodzie ASCII odpowiada wartość określona przez Liczba. 


Na przykład, każda z poniższych instrukcji spowoduje przejście do nowego wiersza: 


nl — predykat standardowy 

write("Nn") 

write("V13V10") — wartości 13 i 10 w kodzie ASCII odpowiadają znakom sterującym 
CR iLF 


4.2. Struktury złożone nierekurencyjne 


Wszystkie obiekty, którymi operuje program napisany w Prologu, tzn. wszystkie ar- 
gumenty klauzul, są nazywane fernami. Każdy z termów może mieć postać stałej, 
zmiennej lub może być termem złożonym (inaczej strukturą). Termy złożone są 
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strukturami danych umożliwiającymi reprezentowanie obiektów zawierających inne 
obiekty (w języku Pascal podobną rolę odgrywają rekordy). Zapis termu złożonego 
składa się z nazwy termu, czyli tzw. funktora, oraz z wykazu argumentów. Argumenty 
również mogą być termami złożonymi. Nazwa funktora musi zaczynać się od małej 
litery. Sposób użycia termów złożonych zilustrowano przykładami 4.21 i 4.22. 


Przykład 4.2-1 
DOMAINS 


student=student (imie,nazwisko,dataUrodzenia) 
dataUrodzenia=dataUrodzenia(dzien,miesiac,rok) 
adres=adres(miasto,ulica,nr); 
numerAkademi ka (numer) 

imie,nazwisko=symbol 
dzien,miesiac,rok=integer 
miasto,ulica,nr=symbol 
numer=integer 

PREDICATES 
wykazStudentow(student „adres ) 

CLAUSES 
wykazStudentow(student("Krzysztof", 

"Kolbuszewski", 


dataUrodzenia(7,5,1967)), 
numerAkademika(3)). 
wykazStudentow(student("Krzysztof”, 
"Bilinski", 
dataUrodzenia(20,2,1966)), 


adres("Zielona Gora","Powst-Warsz.","16/26")). 
wykazStudentow(student("Wojciech”, 


"Podgorski", 
dataUrodzenia(20;7,1967)), 
adres("Glogow" ,"Slowianska","27")). 


Przykłady celów: 
GOAL: wykazStudentow(X,A) 

— wykaz wszystkich studentów z podaniem adresu; 
GOAL: wykazStudentow(X,adres("Zielona Gora", Ulica, Nr)) 

— wykaz studentów mieszkających w Zielonej Górze, lecz nie w akademiku; 
GOAL: wykazStudentow(X, numerAkademika(_)) 


— wykaz studentów mieszkających w akademiku. Ń 


Elementy dziedziny student zadeklarowanej w przykładzie 4.2-1 są repre- 
zentowane za pomocą termów złożonych, mających funktor student i trzy argumenty 
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student (imię,nazwisko,dataUrodzenia) 


Krzysztof 


Rys. 4.2-1. Term złożony uży- 
dataUrodzenia(dzien,miesiac,rok) wany w przykładzie 4.2-1 


należące do dziedzin: imie, nazwisko oraz dataUrodzenia. Trzeci z tych argumentów 
sam jest termem złożonym, o funktorze dataUrodzenia i trzech argumentach nale- 
żących do dziedzin dzien, miesiac oraz rok (rys. 4.21). 


Uwaga 


Funktor i nazwa dziedziny nie muszą być takie same; poprawna jest następująca 
deklaracja: 
DOMAINS 
osoba=student(imię, nazwisko, dataUrodzenia) 


W deklaracji dziedzin złożonych można używać także alternatywy. Fakt ten 
sygnalizuje się za pomocą średnika. Na przykład zapis: 
DOMAINS 
adres=adres(miasto,ulica,nr); 
numerAkademi ka (numer) 
oznacza, że obiekty należące do dziedziny adres mogą być reprczentowane termami 
złożonymi o strukturze: 
adres(miasto,ulica,nr) 
lub o strukturze: 
numerAkademi ka (numer) 
(w Pascalu dziedzinom takim odpowiadają rekordy z wariantami). 
W deklaracji każdego z wariantów musi występować na początku nazwa 
funktora. Oznacza to, że nie jest poprawna następująca deklaracja: 
DOMAINS 
osoba=osoba(imię,nazwisko); 
numerNaLiście %4 brak funktora 
numerNaLiście=integer 


Równości dwóch obiektów złożonych nie można sprawdzać korzystając bez- 
pośrednio z predykatu standardowego = (operatora relacji), lecz należy napisać od- 
powiednią, prostą procedurę. Na przykład dla obiektów należących do dziedziny 
student, zadeklarowanej w przykładzie 4.2—1, może mieć ona następującą postać: 


PREDICATES 
taSamaOsoba (student, student) 
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CLAUSES 
taSamaOsoba(X,X). 


Sposób uzgadniania obiektów złożonych zilustrowano na rys. 4.2-2. 


DOMAINS 
obiektZlozony = f(integer, integer); 
g(integer, integer)  X%alternatywa 


PREDICATES 

alfa(obiektZlozony) 
Nagłówek klauzuli Efekt uzgodnienia 
alfa(f(5,6)) alfa(X) X=f (5,6) 


(ukonkretnienie zmiennej) 
X=6 


alfa(f(5,6)) alfa(f(5,X)) 

(ukonkretnienie zmiennej) 
alfa(f(5,A)) alfa(f(5,X)) X=A 

(powiązanie zmiennych) 


alfa(f(5,A)) X=f(5,A) 
(zmienna X nie jest w pełni 
alfa(f(5,6)) alfa(g(5,6)) 


ukonkretniona, gdyż zawiera 
Rys. 4.2-2. Sposób uzgadniania obiektów złożonych 


nieukonkretnioną zmienną A) 


Próba uzgodnienie kończy się 
niepowodzeniem, gdyż funktory 
ą różne 


Poniższy program jest kolejnym przykładem użycia dziedzin złożonych. Z. 
daniem programu jest symulacja pracy elementu elektronicznego średniego stopnia 
scalenia — rejestru UCY 74194. 


Przykład 4.2—2 
DOMAINS 

stanAktualny = stanAktualny(bit,bit,bit,bit) 
stanNastepny = stanNastepny(bit,bit,bit,bit) 
wejRownolegle= wejRownolegle(bit,bit,bit,bit). 
wejSzeregowe = wejSzeregowe(bit,bit) 
sterowanie = sterowanie(bit,bit) 
zerowanie = zerowanie(bit) 


wejscie = wejscie(bit) 
wyjscie = wyjscie(bit) 
zegar = zegar(bit,bit) 
nazwaOperacji= nazwaOperacj i (symbol ) 
bit = jnteger 

PREDICATES 


rej194(nazwaOperacji, sterowanie, 
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stanAktualny , stanNastepny, 
wejRownolegle, wejSzeregowe, 
zerowanie , zegar). 


CLAUSES 


rej194(nazwaOperacji("ZEROWANIE”), sterowanie(_,_), 
stanAktualny(_,_,_,_), stanNastepny(0,0,0,0), 
wejRownolegle(_,_,_,_), wejSzeregowe(_, _), 
zerowanie(0) , zegar(_,_) ). 
rej194(nazwaOperacji("WPISYWANIE ROWNOLEGLE”), sterowanie(l,l), 
stanAktualny(_, „, „_), StanNastepny(D,C,B,A), 
wejRownolegle(D,C,B,A), wejSzeregowe(_,_), 
zerowanie(1) , zegar(0,1) ). 
rej194(nazwaOperacji("PRZESUWANIE W PRAWO”), sterowanie(0,1), 
stanAktualny(D,C,B,_), stanNastepny(WejSzer,D,C,B), 
wejRownolegle(_,_,_ ,_), wejSzeregowe(WejSzer,_), 
zerowanie(1) , zegar(0,1) ). 
rej194(nazwaOperacji("PRZESUWANIE W LEWO"), Ssterowanie(1,0), 
stanAktualny(_,C,B,A), stanNastepny(C,B,A,WejSzer), 
wejRownolegle(_,_,_,_), wejSzeregowe(_,WejSzer), 
zerowanie(1) , zegar(0,1) ). 
rej194(nazwaOperacji("NOP - BRAK OPERACJI"), sterowanie(0,0), 
stanAktualny(A,B,C,D), stanNastepny(A,B,C,D), 
wejRownolegle(_,_,_ ,_), wejSzeregowe(_,_), 
zerowanie(1) , zegar(0,1) ). 
rej194(nazwaOperacji("BRAK ZBOCZA ZEGARA”), sterowanie(_,_), 
stanAktualny(A,B,C,D), stanNastepny(A,B,C,D), 
wejRownolegle(_,_,_,_), wejSzeregowe(_,_), 


zerowanie(_) , zegar(L,H) ) :- L<>0 or H<>1. + 


Poszczególne klauzule predykatu rej194 opisują kolejno: 


— operację zerowania rejestru, 

— zapisywania danych w sposób równoległy, 

— przesuwania zawartości w prawo, 

— przesuwania zawartości w lewo, 

— blokady zegara przez sygnał sterujący 0,0, 

— oczekiwania na aktywne zbocze sygnału zegarowego (zmianę z O na 1). 
Przykładowo, drugą klauzulę można odczytać następująco: 


e Klauzula reprezentuje operację równoległego wpisywania danych. Informuje o tym 
stała nazwaOperacji ("WPISYWANIE ROWNOLEGLE"). 

e Operacja ta jest wykonywana wówczas, gdy wejścia sterujące są ustawione na 1,1 — 
stała sterowanie(1,1). 

e Stan aktualny nie ma znaczenia dla wyniku operacji — zmienna stanAktua|- 
Ny(_»_»_»_). 
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e W stanie następnym uzyskuje się takie. wartości, jakie są ustawione na wejściu 
równoległym. Wartości te reprezentują zmienne A,B,C,D występujące jednocześnie 
w termach złożonych stanNastepny(D,C,B,A) Oraz wejRownolegle(D,C,B,A). 


e Wartości występujące na wejściach szeregowych nie mają znaczenia — zmienna 
wejSzeregowe(_,_). 

e Wejście zerujące musi być ustawione na 1 (brak zerowania) — stała zerowanie(1). 

e Operacja jest wykonywana w chwili, gdy pojawi się zbocze narastające sygnału 
zegarowego. W tym przypadku zastosowano pewne uproszczenie przyjmując, że 
term zegar(0,1) reprezentuje pojawienie się zbocza narastającego (zmianę war- 
tości sygnału z O na 1). 


Użycie termów złożonych nawet wówczas, gdy mają tylko jeden argument 
(np. term zerowanie), znacznie poprawia czytelność programu. Z tego samego powodu 
w treści klauzul użyto np. termu wejRownolegle(_, ,_,_) zamiast jednej zmiennej 
anonimowej, reprezentowanej przez jeden znak podkreślenia. Poniżej podano przy- 
kład pytania do programu: 
GOAL: rej194(Nazwa, Sterowanie, 
stanAktualny(1,1,1,1), stanNastepny(1,0,1,0), 
WeRow, WeSzer, 
Zerowanie, zegar(0,1)) 


Jest to pytanie o to, w jaki sposób osiągnąć w stanie następnym wartość sygnałów: 
1,0,1,0, jeżeli w stanie bieżącym mają one wartość: 1,1,1,1, przy założeniu, że wystąpiło 
aktywne zbocze sygnału zegarowego. 

W odpowiedzi zmienne zawarte w pytaniu zostaną ukonkrctnione nastę- 
pującymi wartościami: 


Nazwa = nazwaOperacji ("WPISYWANIE ROWNOLEGLE”), 
Sterowanie = sterowanie(1,l), 

WeRow = wejRownolegle(1,0,1,0), 

WeSzer = wejSzeregowe(_,_), 


Zerowanie = zerowanie(1). 


4.3. Struktury rekurencyjne 


Jak już wspomniano, rekurencja jest jedną z najważniejszych technik stosowanych 
w Prologu. W punkcie 3.5 podano przykłady procedur zbudowanych w sposób re- 
kurencyjny; teraz przedstawimy rekurencyjne struktury danych. W tym celu posłu- 
żymy się prostym przykładem z elektrotechniki. 

Na rysunku 4.31 podano przykład układu elektrycznego zbudowanego 
z czterech oporników połączonych ze sobą w sposób szeregowy i równoległy. Uży- 
wając odpowiednio zdefiniowanej, rekurencyjnej struktury danych można w prosty 
i bardzo naturalny sposób napisać program obliczający rczystancję zastępczą takiego 
układu. Układ powstał z równoległego połączenia opornika R1=200 Q z układem 
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R1=200 () 


Rys. 4.3—1. Przykład układu oporników połączonych ze sobą w sposób równoległy lub szeregowy 


przedstawionym w dolnej części rysunku — oznaczonym za pomocą zmiennej Układ1 
(oporniki R2, R3 i R4). Fakt ten można zapisać za pomocą następującego termu: 
polaczenieRownol (opornik(200),Ukladl) 
Z kolei Układ1 jest połączeniem szeregowym układu Układ2 (oporniki R2 i R3) 
z opornikiem R4 = 150 Q. Odpowiada temu następujący term: 
polaczenieSzer(uklad2 ,opornik(150)) 
Analogicznie Układ2 jest utworzony przez połączenie równoległe oporników R2= 
=100 Q i R3 =100 Q: 
polaczenieRownol (opornik(100) ,opornik(100)) 
Cały układ z rys. 4.3—1 można więc przedstawić jako następujący term złożony: 


polaczenieRownol (opornik(200), 
polaczenieSzer(polaczenieRowno1 (opornik(100), 
opornik(100)), 
opornik(150))) 


Wcięcia w zapisie zastosowano w celu podkreślenia związków między obiektami 
tworzącymi tę strukturę. 
Jak widać, układ ten tworzy hierarchiczną strukturę, którą można przed- 
stawić w bardzo prosty sposób posługując się rekurencją: 
DOMAINS 
uklad=polaczenieRowno] (uklad,uklad); 
polaczenieSzer(uklad,uklad); 
opornik(wartoscRezystancji ) 
wartoscRezystancji=rea| 


Użycie alternatywy oznacza, iż obiekt należący do dziedziny uklad może być: 
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— połączeniem równoległym dwóch obiektów należącym do dziedziny uklad, 
— połączeniem szeregowym dwóch obiektów należących do tej dziedziny, 
— pojedynczym opornikiem. 
Odwołanie się w definicji dziedziny uklad do innych obiektów tej dziedziny oznacza 
oczywiście, że mamy do czynienia ze strukturą rekurencyjną. 

W przykładzie 4.3-1 przedstawiono program operujący obiektami należą- 
cymi do przedstawionej dziedziny. Jest to przykład typowego dla Prologu programu, 
zbudowanego w sposób rekurencyjny, operującego rekurencyjnymi strukturami da- 


nych. Program pozwala obliczyć rezystancję zastępczą dowolnego układu oporników 
połączonych ze sobą w sposób szeregowy lub równoległy. 


Przykład 4.3—1 
DOMAINS 
rezystancja = real 
uklad = polaczenieRowno] (uklad,uklad); 
polaczenieSzer(uklad,uklad); 
opornik(rezystancja) 
PREDICATES 
rezystancjaZastepcza(uklad,rezystancja) 
CLAUSES 


rezystancjaZastepcza(polaczenieRowno! (Ukladl,Uklad2) ,R) 


rezystancjaZastepcza(Ukladl,R1), 

rezystancjaZastepcza(Uklad2,R2), 

R=1/(1/R1+1/R2). 
rezystancjaZastepcza(polaczenieSzer (Ukladl,Uklad2),R) 


rezystancjaZastepcza(Ukladl,R1), 
rezystancjaZastepcza(Uk]ad2 ,R2), 
R=R1+R2. 
rezystancjaZastepcza(opornik(R) ,R). + 


Chcąc obliczyć rezystancję zastępczą układu podanego na rysunku 4.3-1, należy 
zadać następujące pytanie: 


GOAL: 
rezystancjaZastepcza( polaczenieRowno! (opornik(200), 
polaczenieSzer(polaczenieRownol (opornik(100), 


opornik(100)), 


opornik(150))), 
Rezystancja_zast) 


Program ma charakter deklaratywny. Pierwszą klauzulę można odczytać następująco: 
R jest rezystancją zastępczą połączenia równoległego dwóch układów, jeżeli 
— Rljest rezystancją zastępczą pierwszego układu, 
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— RZjest rezystancją zastępczą drugiego układu, 
— między R,R1 i R2 zachodzi związek: 
1 

1/R1+ 1/R2 


Podobnie jest sformułowana druga klauzula określająca rezystancję zastępczą połą- 
czenia szeregowego. Trzecia klauzula oznacza, że rezystancja zastępcza pojedynczego 
opornika jest po prostu rezystancją tego opornika. 

Należy zwrócić uwagę, że program jest bardzo prosty, a przy tym pozwala 
obliczyć rezystancję zastępczą dowolnie skomplikowanego układu tego rodzaju (roz- 
budowaną wersję tego programu, umożliwiającą łatwiejsze wprowadzanie danych 
wejściowych przedstawiono w przykładzie 5.7-3). 


R = 


4.4. Listy 


4.4.1. Reprezentacja i przetwarzanie list 


Listy są podstawową strukturą danych występującą w programach prologowych. Ich 
znaczenie można porównać do znaczenia tablic w klasycznych językach programo- 
wania. Lista jest strukturą rekurencyjną, w której skład wchodzą elementy tego same- 
go typu. Często używa się poniższej rekurencyjnej definicji 

Listą nazywamy: 

a) element określonego typu połączony z listą elementów tego samego typu lub 

b) listę pustą, tzn. listę nie zawierającą żadnych elementów. 


Jeśli elementy listy należą do dziedziny liczb całkowitych (integer), to defini- 
cji tej odpowiada następująca deklaracja: 

DOMAINS 

lista=]ista(integer,lista); 
pustaLista 

przy czym pustaLista jest, z formalnego punktu widzenia, funktorem zeroargumen- 
towym, a lista — funktorem dwuargumentowym. 

Do dziedziny tej należą np. takie obiekty: 


lista(5, pustaLista) — lista zawierająca jedną liczbę, 
lista(8, lista(5, pustaLista)) — lista zawierająca dwie liczby, 
lista(2, lista(8, lista(5, pustaLista)))  — lista zawierająca trzy liczby, 
pustaLista — lista nie zawierająca żadnej liczby. 


Ponieważ listy są bardzo ważną i często używaną strukturą, a zapis ich w ta- 
kiej postaci, jak podano powyżej, jest uciążliwy (wielokrotnie zagnieżdżone nawiasy), 
przyjęto więc zapis uproszczony — elementy tworzące listę są umieszczane w po- 
jedynczej parze nawiasów kwadratowych i oddzielane przecikami. Według tej kon- 
wencji podane powyżej przykłady można zapisać następująco: 
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[5] 
[8,5] 
[2,8,5] 
[] 


Należy pamiętać jednak, że jest to jedynie uproszczony zapis struktury, która pozos- 
taje nadal strukturą rekurencyjną, a nie prostym ciągiem elementów. 

Specjalną, uproszczoną konwencję stosuje się także do samej deklaracji dzie- 
dzin listowych. Wykorzystuje się w niej znak gwiazdki. 

DOMAINS 

listaLiczb=integer* % lista elementow  nalezacych do 
% dziedziny integer, np. [1,2,3,4] 

listaZnakow=char* % 
listaWyrazow=string* % 


lista znakow, np. ['a','r','z'] 
lista elementow typu string, np. 
% ["kompilator", "Turbo", "Prologu"] 
Elementy listy mogą być także strukturami złożonymi, w tym także listami, np.: 
DOMAINS 
listasinteger* 
listaList=lista* % lista obiektow zlozonych bedacych 
% listami 
listaAdresów=adres* % lista obiektow zlozonych niereku- 
% rencyjnych 
adres=dokladnyAdres (miasto,ulica,nr); 
nrAkademi ka(nr) 
miasto,ulica=string 
nr=integer 


Dziedzinom listaList i listaAdresow odpowiadają np. takie obiekty: 


= [£ [1,2,5] ? [3,8] s [12,4,3,1,2] ] 

— [dokladnyAdres("Glogow", "Poczdamska”, 5), 
dokladnyAdres("Warszawa", "Koszykowa", 30), 
nrAkademika(3), dokladnyAdres("Wroclaw", "Grunwaldzka", 12)] 


Jak już wspomniano, wszystkie elementy listy muszą należeć do tej samej 
dziedziny. Warunek ten spełnia także ostatni przykład, w którym obiekty mające 
funktory nrAkademika i dokladnyAdres należą do tej samej dziedziny (adres). Taki spo- 
sób deklarowania umożliwia tworzenie tzw. Jist mieszanych. 

W dalszej części książki nazwy lista będziemy używali wyłącznie dla list 
zapisanych za pomocą nawiasów kwadratowych, a nie struktur listowych zapisanych 
za pomocą funktorów. 

W Prologu przetwarzanie list odbywa się na zasadzie podziału danej listy na 
dwie części — tzw. głowę (ang. head) oraz ogon (ang. tail). Do rozdzielenia głowy 
i ogona używa się znaku | (pionowa kreska). Głowę tworzy pierwszy lub, w pewnych 
szczególnych sytuacjach, kilka pierwszych elementów listy. Ogonem jest natomiast 
pozostała część listy. Oznacza to, że głowa jest pojedynczym elementem (lub obej- 
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muje kilka składowych będących pojedynczymi elementami), ogon natomiast sam jest 
listą, tzn. ma swoją głowę i ogon lub jest listą pustą (por. rys. 4.4.11). 


Lista nr 1 "e nr 2 Efekt uzgodnienia 
1,2,3 X=[1,2,3] 
1,2,3 = OZ X=]l, Y=2, Ż=3 


[G1owa | Ogon Glowa=l, Ogon=[2,3 
| [G] owa | Ogon Glowa=l, Ogon=[ 
LJ Glowa | Ogon 
UJ X KOTEENEEEEEMM 
azs [Akk 


[1,2,3,X] (1|0Ogon] Ogon=[2,3,X] 


(X nie jest jeszcze 
ukonkretnione) 
L1,2,3 Glowa| [2,3]] Glowa=1 
[1,2,3] [Glowa|_] | Glowa=1 
(zmienna anonimowa) | 
[1,2,3,4) [X,Y|0gon] X=l1 
(głowę tworzą dwa y=2 
pierwsze elementy) Ogon=[3,4] 
((0,1,2), [3], [4,5,6,7,8,9]] | [G|09] | 6=[0,1,2] 
(lista list) : Og=[[3], [4,5 5, 6, 7,8,9]] 


G=alfa(1, 2] 
O0g=[alfa(3,4),alfa(5,6)] 


: X=l 
0g=[a1fa(3,4),alfa(5,6)] 


[alfa(1,2), alfa(3,4), 
alfa(5,6)] 


[alfa(1,2), a1fa(3,4), 
alfa(5,6)] 


[G|0g] 


[a1fa(X,2) |0g] 


Rys. 4.4.1-1. Sposób uzgadniania list 


Uwaga 

W liście pustej nie można wydzielić głowy i ogona. Dlatego też próba uzgodnienia tej 
listy z listą, w której występuje podział na głowę i ogon, nigdy nie skutkuje. Fakt ten 
jest wykorzystywany w większości programów operujących listami. 


W następnym punkcie przedstawimy wybrane procedury realizujące przykła- 
dowe operacje na listach. Zapoznanie się z nimi jest bardzo istotne, gdyż zawierają 
one typowe rozwiązania programowe stosowane we wszystkich operacjach listowych. 


4.4.2. Przykłady operacji na listach 


Przetwarzanie list jest realizowane za pomocą procedur zbudowanych rekurencyjnie. 
Procedury te, podobnie jak inne procedury rekurencyjne, są zbudowane z dwóch 
części: 
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— zklauzuli (lub kilku klauzul) kończącej rekurencję, 


— zkłauzuli (kilku klauzul) zawierającej rekurencyjne wywołanie samych siebie. 
Wyświetlanie elementów listy 


Procedura jest zbudowana zgodnie z następującym rekurencyjnym opisem wy- 
świetlania: 


1) dla listy pustej nie należy wykonywać żadnej operacji (nie należy w ogóle niczego 
wyświetlać), 
2) dla listy niepustej należy wyświetlić głowę tej listy, a następnie zrealizować wy- 
świetlenie listy tworzącej ogon. 
Pierwszą sytuację można opisać za pomocą następującego faktu: 
wyswietlListe([]). 
W drugiej sytuacji (lista jest niepusta) można wydzielić głowę i ogon listy. Dlatego też 
nagłówek drugiej klauzuli ma następującą postać: 
wyswiet1Liste([Glowa | Ogon] ) 
Wyświetlenie głowy odbywa się za pomocą standardowego predykatu 
write(Glowa) 
a wyświetlenie ogona (czyli listy reprezentowanej przez zmienną 0gon) — za pomocą 
procedury: 
wyswietlListe(0gon) 
To ostatnie wywołanie procedury wyswiet1Liste ma oczywiście charakter rekurencyj- 


ny, ponieważ występuje w trakcie realizacji tejże procedury. W całości procedurę 
wyswiet1Liste przedstawiono w przykładzie 4.4.2—1. 


Przykład 4.4.2-1 


DOMAINS 
listasinteger* 


PREDICATES 
wyswietlListe(lista) 


CLAUSES 

wyswietlListe([]). 

wyswiet1Liste( [Glowa |0gon]) 
write(Glowa), nl, 
wyswietlListe(0gon). + 

Należy zauważyć, że w kolejnych rekurencyjnych wywołaniach argumentem 

procedury wyswiet]Liste jest lista krótsza od poprzedniej o jeden element (element, 

który został wcześniej wyświetlony). Rekurencja kończy się w chwili, gdy należy 
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wyświetlić listę pustą, czyli wówczas, gdy następuje uzgodnienie parametrów z pierw- 
szą klauzulą procedury. 


Uwagi 

e W klauzuli tworzącej rekurencyjną część procedury przetwarzającej listy dokonuje 
się zazwyczaj pewnych operacji związanych z głową listy, a następnie wywołuje się 
rekurencyjnie tę samą procedurę przyjmując jako argument już nie całą listę, lecz 
jej ogon. 

e Rekurencję kończy często wystąpienie listy pustej, której nie można podzielić już 
na głowę i ogon. Następuje wtedy uzgodnienie wywoływanego podcelu z klauzulą 
reprezentującą nierekurencyjną część procedury. 


Tworzenie listy 


W przykładzie 4.4.2-2 przedstawiono program, którego zadaniem jest zamiana napisu 
(string) na listę, tzn. utworzenie listy znaków na podstawie znaków wchodzących 
w skład napisu. Kolejność znaków w liście i kolejność znaków w napisie są takie same 
(tzw. lista nieodwrócona). 


Przykład 4.4.2—2 
1 DOMAINS 
2 |listaZnakow = char* 
3 PREDICATES 
4 utworzListe(string,listaznakow) 
5 CLAUSES 
6 utworzListe("",[]). %"" - pusty napis (koniec rekurencji) 
7 utworzListe(Napis, [Znak|OgonListy]) 
8 :- 
9 frontChar (Napis,Znak,ResztaNapisu), 


[an 
o 


utworzListe(ResztaNapisu,OgonListy). A 


Predykat frontChar jest standardowym predykatem Turbo Prologu, pozwa- 
lającym wydziclić pierwszy znak napisu (parametr ResztaNapisu stanowi pozostałą 
część napisu) — porównaj p. D.2.7. W programie wykorzystuje się typową technikę 
stosowaną przy tworzeniu list nieodwróconych: 

1) ustala się najpierw głowę tworzonej listy, ogon natomiast czeka na utworzenie — 
porównaj wiersze 7 i 9 programu (w przykładzie 4.4.2—2 głową jest zmienna o naz- 
wie Znak, ukonkretniona w wyniku działania predykatu frontChar); 

2) przechodzi się do tworzenia ogona korzystając z identycznej zasady: wydziela się 
w nim jego głowę i ogon; następnie ustala się najpierw tę głowę, ogon natomiast 
czeka na utworzenie itd. 

Proces kończy się, gdy jako ogon przyjmie się listę pustą (pierwsza klauzula procedury 

utworzListe), tj. gdy napis będzie pusty. 
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Załóżmy, że podamy cel: 
GOAL: utworzListe("abcd" ,L) 


Kolejne fazy tworzenia listy pokazano na rysunku 4.4.21 (w celu lepszego zilustro- 
wania całego procesu zastosowano zapis listy za pomocą zagnieżdźonych nawiasów). 
Zmienne 0gon występujące w punktach 1) — 5) nie oznaczają tej samej zmiennej, lecz 
kolejne wcielenia zmiennej przy rekurencyjnych wywołaniach procedury. 

Procedura tworzenia listy nieodwróconej na podstawie danych podawanych 
z klawiatury zostanie przedstawiona w przykładzie 5.5.2—5. 


1) ["a" | Ogon ] 
2) ["a" | ["b" | Ogon ]] 
3) ["a" | [”b" | ["e” |  0gon )]] 


4) [a" | ["b" | ["e" | ["d | Ogon 1]]] 
5) a" | ["b" | "e" | rd| © 11] 


Rys. 4.4.21. Tworzenie listy nieodwróconej — kolejne fazy zamiany napisu "abcd" na listę ["a", "b", 
n c” , "d"] 


Uwaga 


Zasady tworzenia listy nieodwróconej i odwróconej (przykład 4.4.2—3) są podstawo- 
wymi technikami stosowanymi przy bardziej złożonym przetwarzaniu list (porównaj 
np. program w przykładzie 5.4—2). 


Tworzenie listy odwróconej 


W przykładzie 4.4.2—3 podano program, który również zamienia zawartość napisu na 
listę, lecz kolejność elementów na liście jest odwrotna. Na przykład na podstawie 
napisu "abcd" otrzymuje się listę ["d" , "c" „, "b" ,"a"]. 


Przykład 4.4.2-3 


DOMAINS 

listaZnakow = char* 

PREDICATES 

% utworzListeOdwrocona(Napis , Listayjsciowa, ListaRobocza) 
utworzListeO0dwrocona(string, listaznakow _, listaZnakow ) 

CLAUSES 

utworzListeOdwrocona(Napis, LWyj, ListaRobocza) 

frontChar(Napis, Znak, ResztaNapisu), 

utworzListeOdwrocona(ResztaNapisu, Lwyj,[Znak|ListaRobocza]). 


utworzListeO0dwrocona("", L, L). % koniec, gdy napis jest pusty 
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Przy wywołaniu procedury należy jako listę roboczą (trzeci parametr) podać listę 
pustą, na przykład 


GOAL: utworzListeOdwrocona("abcd" , Lista , []) 


Tworzenie listy rozpoczyna się od listy pustej, traktowanej następnie jako ogon, do 
którego dołącza się głowę (w programie ogonem jest zmienna o nazwie ListaRobocza). 
Następnie otrzymaną w ten sposób listę traktuje się jako ogon itd. (rys. 4.4.2—2). 


1) [J 

2) ra" | [1] 

3) ["b" | ["a" | [1]] 

4) "e" | ["b" | [©a" | 0]]] 
5) [ra" | [re" | ["b" | ["a" | 0]]]] 


Rys. 4.4.2-2. Tworzenie listy odwróconej — kolejne fazy zamiany napisu "abcd" na listę (”d" „, "c", 
"b", "a"] (przykład 4.1.2-3) 


Zamiana struktury listowej zapisanej za pomocą funktorów na listę zapisaną za 
pomocą nawiasów kwadratowych 


W procedurze zamiany (przykład 4.4.2—4) wykorzystano technikę tworzenia listy nie- 
odwróconcj. Procedurę można stosować zarówno do zamiany struktury listowej na 
listę, jak i do zamiany odwrotnej. Przykładowe cele: 


GOAL: zamiana(S, [1,2,3,4]) 

GOAL: zamiana( strukturaListowa(Glowa,O0gon) , [1,2,3,4]), 
write("Glowa=" , Glowa), nl, 
write("0gon= " , Ogon ). 

GOAL: zamiana(strukturaListowa(1,pustaStrukturaListowa), Lista) 


Przykład 4.4.2—4 


DOMAINS 
lista=integer* 
strukturaListowa=strukturaListowa(integer,strukturaListowa); 
pustaStrukturaListowa 
PREDICATES 
zamien(strukturaListowa, lista) 
CLAUSES 
zamien( pustaStrukturaListowa, []). 
zamien( strukturaListowa(X,Y), [X|0gon]) 
:- zamien(Y, Ogon). + 


Pierwszą klauzulę programu można odczytać następująco: jeśli struktura listowa jest 
utworzona jedynie przez funktor zeroargumentowy pustaStrukturaListowa, to odpo- 
wiadająca jej lista w zapisie standardowym (z użyciem nawiasów kwadratowych) jest 
listą pustą, tzn. []. 
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Druga klauzula opisuje sytuację z listą niepustą (tzn. niepustą strukturą 
listową lub niepustą listą zapisaną w sposób standardowy). Klauzulę tę można odczy- 
tać następująco: 

— pierwszy element struktury listowej odpowiada głowie listy w zapisie standardo- 
wym (ta sama zmienna X występuje odpowiednio w obydwu argumentach klauzuli), 

—_ pozostałą część struktury listowej, oznaczoną przez Y, należy zamienić na ogon listy 
w postaci standardowej lub odwrotnie. Jest to realizowane za pomocą rekurencyj- 
nego wywołania procedury zamien z parametrami Y oraz Ogon. 


Obliczanie długości listy 


W programie podanym w przykładzie 4.4.2—5 wykorzystano następującą rekurencyjną 
definicję: 

1) długość listy pustej wynosi zero; 

2) długość listy niepustej jest równa długości ogona zwiększonej o jeden. 


Przykład 4.4.2—5 
DOMKAINS 
lista=integer* 
PREDICATES 


dlugoscListy(lista,integer) 
CLAUSES 
dlugoscListy([],0). 
dlugoscListy([_|0g],N) 
:- dlugoscListy(0g,N1), 
N=N1+1. 


Sprawdzenie, czy element należy do listy 


Procedura ta jest zbudowana na podstawie następującego opisu: 

1) element należy do listy, jeżeli jest taki sam, jak głowa listy; 

2) element należy do listy, jeżeli należy do ogona tej listy. 

Przypadek pierwszy można opisać następująco: 
nalezyDoListy(X, [61owa |0gon]) if X=Glowa. 

Zapis ten można skrócić, korzystając odpowiednio z zasad uzgadniania parametrów: 
nalezyDoListy(X, [X|0gon]). 

(sprawdzenie równości dwóch obiektów przez odpowiednie zapisanie ich w nagłówku 

klauzuli jest typowym rozwiązaniem prologowym). Należy zauważyć, że jeśli jest 

prawdziwy przypadek pierwszy, to zawartość ogona nie jest istotna, tzn. że w jego 

miejsce można użyć zmiennej anonimowej. Ostatecznie więc otrzymujemy klauzulę: 
nalezyDoListy(X,[X|_]). 
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Przypadek drugi można opisać następująco: 
nalezyDoListy(X,[_|0gon]) if nałezyDoListy(X,0gon). 

W nagłówku tej klauzuli wydziela się ogon tej listy (głowa nie jest tu istotna), aby 
następnie przez rekurencyjne wywołanie procedury sprawdzić, czy element X należy 
do tego ogona. Całą opisaną powyżej procedurę przedstawiono w przykładzie 4.4.2—6. 
Ponieważ jest ona powszechnie znana pod angielską nazwą member i nazwa ta jest 
w zasadzie traktowana jako standardowa, więc w przytoczonym przykładzie użyto tej 
właśnie nazwy (będziemy posługiwali się nią także w dalszej części książki). 


Przykład 4.4.2—6 


DOMAINS 
lista=integer* 
PREDICATES 
member (integer, lista) 
CLAUSES 
member (X, [X|_]). 
member (X, [_|0gon]) 
if member(X,O0gon). + 


Uwaga 

Procedurę member można użyć do wyświetlania elementów listy podając np. pytanie: 
GOAL: member(X,[1,2,3,4]) 

czyli: jakie elementy należą do listy [1,2,3,4]? 


Łączenie dwóch list 


Jeżeli chcemy uzyskać listę, będącą połączeniem dwóch list, to operację, którą należy 
wykonać, można opisać następująco: 
1) jeśli pierwsza lista jest listą pustą, to listę będącą złożeniem list uzyskuje się 
korzystając z zasady, że połączenie listy pustej z dowolną listą L jest równe liście L; 
2) jeśli pierwsza lista nie jest listą pustą, to za głowę listy będącej złożeniem przyj- 
mujemy głowę pierwszej listy, ogon natomiast uzyskujemy realizując połączenie 
pozostałej części pierwszej listy (czyli ogona pierwszej listy) z listą drugą. 
Przypadek pierwszy można opisać za pomocą faktu: 
% polaczListy( Listal, Lista2, ZlozenieList) 
polaczListy( [] „, Lista , Lista). 
a drugi — za pomocą reguły: 
połączListy( [G1|0g1], Lista2, (G zlozenia|0g_zlozenia]) 


:- G_zlozenia=Gl, 
polaczListy(0gl,Lista2,0g_zlozenia). 


Zapis tej reguły można uprościć do postaci: 
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polaczListy( [G61|0g1], Lista2, [G1|0g_zlozenia] 
:- polaczlisty(0gl,Lista2,0g_zlozenia). 
Całą procedurę łączenia list przedstawiono w przykładzie 4.4.2—7. Jest ona powszech- 
nie znana pod angielską nazwą append; w dalszej części książki będziemy posługiwali 
się tą właśnie nazwą. 


Przykład 4.4.2—7 
DOMAINS 
listasinteger* 
PREDICATES 
% append(Ll  ,L2  „ZlozenieList) 
append(lista,lista,lista) 
CLAUSES 
append([], L, L). 
append([G1|0g1], L2, [G1|Og_zlozenia]) 
:- append(0gl, L2, 0g_zlozenia). 4 


Predykat append może być użyty do różnych celów, w zależności od sposobu wywo- 
łania. Na przykład: 


GOAL: append([1,2,3], [4,5,6], L) 
— pytanie o wynik połączenia dwóch list; uzyskany wynik: L-[1,2,3,4,5,6]; 
GOAL: append([1,2,3], L, [1,2,3,4,5]) 
— pytanie o jedną z list składowych; uzyskany wynik: L=[4,5]; 
GOAL: append(L1, L2, [1,2,3]) 
— dekompozycja podanej listy na dwie listy składowe; uzyskany wynik: cztery pary list 
LI=[] L1=[1] L1=[1,2] L1=[1,2,3] 
L2=[1,2,3] L2=[2,3] L2=[3] L2=[] 


GOAL: append(Przed, [4|Po] , [1,2,3,4,5,6]) 
— rozdzielenie listy na dwie części w stosunku do wybranego clcmentu; uzyskany 
wynik: Przed=[1,2,3] Po=[5,6]; 
GOAL: append(_, [ X|[] ]. [1,2,3,4]) 
— wydzielenie ostatniego elementu listy; uzyskany wynik: X=4. 


Sprawdzenie, czy pewna lista jest podlistą innej listy 


Odpowiednią procedurę podano w przykładzie 4.4.2-8. Wykorzystano w niej proce- 

durę append i stwierdzenie, że lista jest podlistą innej listy, nazywanej główną, jeżeli: 

1) łącząc tę listę z pewną inną listą można otrzymać listę główną; inaczej mówiąc, 
elementy podlisty są pierwszymi elementami listy głównej (przypadek ten spraw- 
dza się w pierwszej klauzuli procedury podlista); 

2) lista ta jest podlistą ogona listy głównej (druga klauzula procedury podl ista). 
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Przykład 4.4.2—8 


DOMAINS 
listasinteger* 
PREDICATES 
% append(ll  , L2  , ZlozenieList) 
append(lista, lista, lista) 
% podlista(PodLista, ListaGlowna) 
podlista(lista  , lista ) 
CLAUSES 
append([], L, L). 
append([G1|0g1], L2, [G1|0g_zlozenia]) 
:- append(0gl, L2, 0g_zlozenia). 
podlista(P,L) 
:- append(P,_,L). 
podlista(P, [_|0g]) 
:-podlista(P,0g). $ 


Utworzenie nowej listy z pierwszych /V elementów listy 


Odpowiednią procedurę podano w przykładzie 4.4.2-9. W procedurze korzysta się 
podanych wcześniej procedur dlugoscListy i append. 


Przykład 4.4.2-9 


DOMAINS 
lista=integer* 
PREDICATES 
% wydzielPoczatekListy(Dlugosc,Lwe „WydzielonyPoczatek) 
wydzielPoczatekListy(integer,lista,lista) 
dlugoscListy(lista,integer) 
% append(Ll  ,L2  „ZlozenieList) 
append(lista,lista,lista) 


CLAUSES 
dlugoscListy([],0). 
dlugoscListy([_|0g],N) 
:- dlugoscListy(0g,N1), 
N=N1l+1. 
append([], L, L). 
append([61|0g1], L2, [G1|0g_zlozenia]) 
:- append(0gl, L2, 0g_zlozenia). 
wydzielPoczatekListy(N, ListaPierwotna, WydzielonyPoczatek) 
:- append(WydzielonyPoczatek, _, ListaPierwotna), 
dlugoscListy(WydzielonyPoczatek, N). + 
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Usuwanie z listy wskazanego elementu 


Program z przykładu 4.4.2—10 zbudowano na podstawie następującego opisu. 

1) jeżeli element, który należy usunąć, jest głową listy, to listą wynikową jest ogon listy 
pierwotnej; 

2) jeżeli element, który należy usunąć, jest różny od głowy listy, to głowa pozostaje bez 
zmian, a ogon listy wynikowej powstaje przez usunięcie tego elementu z ogona listy 
wejściowej; 


3) jeżeli lista wejściowa jest listą pustą, to lista wynikowa jest także listą pustą. 


Przykład 4.4.2-10 


DOMAINS 
listasinteger* 


PREDICATES 
% usun(UsuwanyElement, ListaPierwotna, Wynik) 
usun(integer , lista , lista) 
CLAUSES 
usun(X, [X|0g], 0g). 
usun(X, [6|0g1], [G|0g2]) 


:- X<>G, 
usun(X,0gl1,0g2). 
usun(_,[],[]). + 


Jeśli element, który należy usunąć, występuje na liście wielokrotnie, to proce- 
dura podana w przykładzie 4.4.2-10 usuwa jedynie pierwsze z tych wystąpień. 


W przykładzie 4.4.2—11 podano procedurę, która usuwa wszystkie wystąpienia poda- 
nego elementu. 


Przykład 4.4.2-11 


DOMAINS 
listasinteger* 


PREDICATES 
% usun(UsuwanyElement, ListaPierwotna, Wynik) 
usun(integer , lista , lista) 


CLAUSES 
usun(X, [X|0g], L) 
:- usun(X,0g,L). 
usun(X, [G|0g1], [G|0g2]) 
:- X<>G, 
usun(X,0gl1,0g2). 
usun(_,[],[]). + 
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4.5. Pliki 


4.5.1. Wprowadzenie 


Wszystkie omówione dotychczas dziedziny umożliwiały jedynie deklarowanie obiek- 
tów przechowywanych w pamięci operacyjnej komputera. Podobnie jak w innych 
językach programowania, w Turbo Prologu istnieje dziedzina plików, umożliwiająca 
składowanie danych na zewnętrznych nośnikach, np. na dyskach elastycznych. 
Najprostsze wykorzystanie plików polega na użyciu predykatu standardo- 
wego file_str. Jak podano w punkcie 4.1, w Turbo Prologu istnieje standardowa 
dziedzina napisów (string); ponieważ dopuszczalna wielkość napisu wynosi 64 KB, 
można więc tworzyć długie teksty reprezentowane przez jedną zmienną. Predykat 
file_str pozwala zapisać w pliku wartość jednej takiej zmiennej lub odwrotnie — 
przypisać zmiennej tekst znajdujący się w pliku. Wywołanie predykatu ma postać: 


file_str(nazwakatalogowaPliku, napis) 


W chwili wywołania predykatu jego pierwszy parametr (nazwakatalogowa- 
P1iku) musi być ukonkretniony; charakter drugiego parametru (napis) decyduje o kie- 
runku przepływu informacji. Jeśli jest on zmienną nieukonkretnioną, to zawartość 
pliku zostanie przypisana tej zmiennej; jeśli natomiast jest on stałą lub zmienną 
ukonkretnioną, to zostaje utworzony plik, który zawiera wartość tej stałej lub zmiennej 
(jeżeli plik o identycznej nazwie katalogowej istniał wcześniej, to zostaje on skasowany 
1 zastąpiony plikiem utworzonym przez predykat file_ str). Użycie predykatu file_ str 
zilustrowano w przykładzie 4.5.1-1. Zadaniem programu jest dopisanie na początku 
dowolnego pliku (którego wielkość nie przekracza dopuszczalnej długości napisu, 
czyli 64 KB) komentarza podanego przez użytkownika. 


Przykład 4.5.1—-1 


GOAL 
write("Podaj nazwe pliku: "), 
readln(NazwaPliku), 
file_str(NazwaPliku, TekstZPliku), 
write("Podaj komentarz: "), 
readln(Komentarz), 
concat(Komentarz, TekstZPliku, TekstZKomentarzem), 
file_str(NazwaPliku, TekstzKomentarzem). $ 


Pierwsze wywołanie predykatu file_str powoduje wczytanie zawartości pliku o naz- 
wie podanej z klawiatury, do zmiennej napisowej TekstzPliku. Drugie wywołanie 
natomiast powoduje zapisanie wartości zmiennej TekstZKomentarzem do tego pliku. 
Predykat concat jest predykatem standardowym Turbo Prologu. W podanym 
przykładzie jest on wykorzystywany do połączenia dwóch oddzielnych napisów (dwa 
pierwsze parametry) w jeden większy (trzeci parametr) — porównaj p. D.2.7. 
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4.5.2. Podstawowy sposób obsługi plików 


Predykat file_str, bardzo prosty w użyciu, jest jednak często niewystarczający. Co 
prawda umożliwia korzystanie z zawartości pliku, jest ona jednak traktowana w całoś- 
ci jako jeden napis. Większość zastosowań wymaga natomiast możliwości zapisywania 
lub odczytywania poszczególnych elementów pliku (liczb, znaków, wyrazów itp.) od- 
dzielnie. Podstawowy sposób obsługi plików jest więc inny. Przyjęto mianowicie zało- 
żenie, że programy napisane w Turbo Prologu komunikują się z otoczeniem za poś- 
rednictwem tzw. urządzeń zewnętrznych. Zaliczono do nich monitor, klawiaturę, dru- 
karkę, układ transmisji szeregowej oraz pliki. W każdej chwili są dostępne tylko dwa 
urządzenia — jedno do zapisywania informacji, drugie do wczytywania. Każdy pro- 
gram zakłada na początku, że urządzeniem wejściowym jest klawiatura, a wyjściowym 
monitor. Do zmiany takiego przyporządkowania służą dwa predykaty: 

— readDevice(nazwaUrządzenia), wybierający urządzenie do czytania, 

— writeDevice(nazwaUrządzenia), wybierający urządzenie do zapisywania. 

Urządzenia mają następujące nazwy standardowe: 

screen — monitor; 

printer — drukarka, 

keyboard — klawiatura, 

coml — układ transmisji szeregowej. 


Na przykład wywołanie writeDevice(printer) powoduje wybranie drukarki jako urzą- 
dzenia wyjściowego. Oznacza to, że od tej chwili wszystkie predykaty zapisywania 
informacji, np. write i nl, będą powodowały wysłanie tekstu na drukarkę, a nie na 
monitor. Pliki traktowane jako urządzenia zewnętrzne muszą zostać odpowiednio 
zadeklarowane, tak aby można je było również wybierać w celu zapisywania lub 
odczytywania danych. 

Ustalenia nazwy symbolicznej pliku, tzn. nazwy, którą będziemy posługiwali 
się podobnie jak posługujemy się nazwami pozostałych urządzeń zewnętrznych (np. 
screen), dokonuje się za pomocą odpowiedniej deklaracji w sekcji DOMAINS. Do tego 
celu używa się słowa kluczowego file. Na przykład dcklaracja 


DOMAINS 
file = plik_danych; plik wynikow 


oznacza, że nazwy symboliczne plik_danych oraz plik_wynikow będą reprczentowały 
w programie wybrane przez nas pliki. 


Uwagi 

e W odróżnieniu od wszystkich pozostałych deklaracji dzicdzin, przy dceklarowaniu 
nazw symbolicznych plików słowo kluczowe fi le zapisujemy po lewej stronie znaku 
równości, a po prawej wymieniamy nazwy symboliczne plików używane w danym 
programie. 

e Jako nazw symbolicznych plików nie można używać określeń zarezerwowanych dla 
monitora, drukarki, klawiatury oraz układu transmisji szeregowej. 
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Uzyskanie dostępu do konkretnego pliku wymaga tzw. otwarcia pliku. Polega 
ono na powiązaniu katalogowej nazwy pliku z nazwą symboliczną oraz na ustaleniu 
rodzaju operacji, która ma być wykonywana. Istnieją cztery rodzaje otwarcia pliku: do 
czytania, do pisania, do dopisywania oraz do modyfikowania. 

Każdy plik otwarty do wykonywania dowolnej operacji, z wyjątkiem czytania, 
musi zostać zamknięty za pomocą predykatu closeFile(nazwaSymbol icznaPliku). Przed 
użyciem instrukcji readDevice lub writeDevice plik, którego dotyczą te instrukcje, musi 
być wcześniej otwarty. 


Otwarcie pliku do czytania 


Plik otwiera się do czytania za pomocą predykatu: 
openRead(nazwaSymbolicznaPliku, nazwaKatalogowaP] iku) 


Po takim otwarciu i po użyciu predykatu wyboru urządzenia readDevice(nazwaSymbo- 
licznaPliku) instrukcje readln, readlnt itp. będą odczytywały informacje zawarte 
w pliku o nazwie nazwakKatalogowaPliku. Ilustruje to program podany w przykładzie 
4.5.2-1. Jego zadaniem jest odczytanie trzech pierwszych liczb zapisanych w pliku 
o nazwie DANE.DAT i wyświetlenie ich na monitorze. 


Przykład 4.5.2—1 


DOMAINS 
file = plik_danych 


GOAL 
openRead(plik_danych, "DANE.DAT"), 
readDevice(plik_danych), 
readlnt(Liczbal), 
write("Pierwsza liczba: ",Liczbal), nl, 
readlnt(Liczba2), 
write("Druga liczba: ",Liczba2), nl, 
readlnt(Liczba3), 
write("Trzecia |liczba: ",Liczba3). A 


W Turbo Prologu wszystkie instrukcje czytania odczytują jeden element 
z wiersza. W związku z tym, jeżeli w pliku mamy zapisane dane numeryczne, to 
w każdym wierszu może znajdować się tylko jedna liczba, gdyż w przeciwnym razie 
wystąpi błąd przy czytaniu (readlnt, readRea1) lub utracimy wszystkie dane nie roz- 
poczynające wiersza (readTerm). 


Otwarcie pliku do pisania 


Plik otwiera się do pisania za pomocą predykatu: 


openHrite(nazwaSymbolicznaPliku, nazwaKatalogowaP |] iku) 
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Użycie predykatu zilustrowano w przykładzie 4.5.2—2. Zadaniem programu jest zapi- 
sanie w pliku wszystkich znaków wprowadzanych z klawiatury, aż do podania znaku +. 


Przykład 4.5.2—2 


DOMAINS 
file = czytaneZnaki 
PREDICATES 
start 
zapiszZnakow(char) 
GOAL 
start. 


CLAUSES 


start if openwrite(czytaneZnaki, "ZNAKI.DAT"), 
writeDevice(czytaneZnaki), 
readChar (Znak), 
zapisZnakow(Znak), 
closeFile(czytaneZnaki), 
writeDevice(screen). 
zapisZnakow('f'). 
zapisZnakow(Znak) if Znak<>'£', 
write(Znak), 
readChar(KolejnyZnak), 
zapisZnakow(KolejnyZnak). PA 


Uwaga 

Przypominamy, że jeśli plik o nazwie nazwakatalogowaP] iku już istnieje, to w chwili 
użycia predykatu openWrite jego dotychczasowa zawartość zostanie skasowana. 
Otwarcie pliku do dopisywania 


Istniejący plik można otworzyć w celu dopisania do niego nowych informacji (na 
końcu pliku). Służy do tego predykat: 


openAppend(nazwaSymbolicznaPliku, nazwaKatalogowaP|iku) 


Otwarcie pliku do modyfikowania 
Ten sposób otwarcia umożliwia zarówno czytanie z pliku informacji już w nim zawar- 
tych, jak i zapisywanie nowych. Do takiego otwarcia służy predykat: 

openModi fy (nazwaSymbolicznaPliku, nazwaKatalogowaP] iku) 


Sposób jego użycia zilustrowano w przykładzie 4.5.2-3. Zadaniem programu jest 
wyznaczenie liczby wierszy w pliku, a następnie zapisanie tej liczby na końcu pliku. 
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Przykład 4.5.2—3 


DOMAINS 

file = modyfikowanyP]ik 
PREDICATES 

start 

liczeniewierszy(integer) 
GOAL 

start. 


CLAUSES 
start if openModify(modyfikowanyPlik, "TEKST.DAT"), 

readDevice(modyfikowanyPlik), 
liczenieWierszy(LiczbaWierszy), 
writeDevice(modyfikowanyPlik), nl, 
write(LiczbaWierszy), 
closeFi le(modyfikowanyPlik), 
readDevice(keyboard), 
writeDevice(screen). 


liczenieWierszy(LiczbaWierszy) 
if readln(_), 
liczenieWierszy(PozostalychWierszy), 
LiczbaWierszy = PozostalychWierszy + 1. 
liczenieWierszy(0). PO 


4.5.3. Dodatkowe predykaty związane z obsługą plików 


W Turbo Prologu istnieją dodatkowo dwa predykaty związane z obsługą plików: 


— eof(nazwaSymbol icznaPliku) — umożliwiający wykrycie znaku końca pliku; skutkuje 
po odczytaniu ostatniego elementu zapisanego w pliku; 

— existFile(nazwakatalogowaPliku) — umożliwiający sprawdzenie, czy w bieżącym 
katalogu istnieje plik o podanej nazwie. 

Uzycie tych predykatów zilustrowano w przykładzie 4.5.3-1. Podając z klawiatury 

nazwę pliku, z którego mają być odczytane dane, można popełnić błąd, tzn. podać 

nazwę pliku, który nie istnieje. Odpowiednie użycie predykatu existFile (przed pole- 

ceniem otwarcia pliku) sprawia, że program nie kończy się błędem wykonania, lecz 

wyświetla stosowny komunikat. Wersję umożliwiającą ponowne wprowadzenie nazwy 

podano w przykładzie 5.6.5—1. 


Przykład 4.5.3-1 


DOMAINS 
file=plik 


PREDICATES 


62 4. Struktury danych 


czytanieP]iku 
otwarciePliku(string) 
wyswietlenieZawartosciP]iku(integer) 


GOAL 
czytaniePliku. 
CLAUSES 
czytaniePliku 
:- write("Podaj nazwe pliku: "), 
readln(Nazwa), 
otwarcieP1iku(Nazwa), 
readDevice(plik), 


wyswietlenieZawartosciPIiku(1). 
otwarcieP1iku(Nazwa) 
:- existFile(Nazwa), 
openRead(plik,Nazwa). 
otwarcieP] iku(Nazwa) 
:- not(existFile(Nazwa)), 
write("Plik o tej nazwie nie istnieje !"), nl, 
exit.  % predykat exit konczy wykonywanie programu 


wyswietlenieZawartosciP]iku(Nr) 
:- not(eof(plik)), 
readln(Wiersz), 
write("wiersz " , Nr , ": " , Wiersz), nl, 
Nrl = Nr + 1, 
wyswietlenieZawartosciPliku(Nr1). 
wyswietlenieZawartosciPIiku(_). 


5. Sterowanie 


5.1. Wprowadzenie 


Powszechnie przyjmuje się, że na program składają się dwa elementy: algorytmy 
i struktury danych [32]. Istotę algorytmu, według Roberta Kowalskiego, jednego ze 
współtwórców teorii programowania w logice, można z kolei przedstawić za pomocą 
następującej zwięzłej formuły: 

algorytm =.logika + sterowanie 
Przez logikę rozumie się tn związki logiczne zachodzące między poszczególnymi 
obiektami występującym: w programie, przez sterowanie natomiast — proces wnios- 
kowania na podstawie tych związków. 

Dotychczas zajmowaliśmy się jedynie tą częścią algorytmu, która jest okreś- 
lana terminem „logika” (w rozdziale 4 przedstawiliśmy także struktury danych dostęp- 
ne w Turbo Prologu). Pisząc na przykład program 2.1-1 zdefiniowaliśmy jedynie 
związki logiczne zachodzące między poszczególnymi członkami rodziny. Pomijaliśmy 
natomiast zupełnie problemy związane ze sterowaniem, nie zastanawiając się, w jaki 
sposób są poszukiwane odpowiedzi na zadawane pytania, np. w jaki sposób znajduje 
się wszystkich dziadków i wnuków w przypadku pytania 


GOAL: dziadek(Dziadek,Wnuk) 


Podejście takie odzwierciedla pewną idealną sytuację, w której zadanie programisty 
polega jedynie na przedstawieniu odpowiednich związków logicznych między posz- 
czególnymi obiektami, a cały proces sterowania związany z poszukiwaniem odpowie- 
dzi na zadawane pytania jest realizowany automatycznie przez komputer. 

Jeśli używa się języka Prolog, to duża część problemów związanych ze ste- 
rowaniem jest rzeczywiście realizowana bezpośrednio przez aparat wnioskowania, 
będący integralną częścią tego języka. Stanowi to duże ułatwienie dla programisty 
i jest bardzo ważną zaletą Prologu (por. p. 2.6). Są jednak sytuacje, w których progra- 
mista musi zająć się także pewnymi aspektami sterowania. Zwykle polega to na 
wprowadzeniu pewnych modyfikacji do standardowego działania aparatu wniosko- 
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wania lub przynajmniej na uwzględnieniu tego sposobu działania w samym zapisie 
programu. Aby zilustrować ten ostatni problem, posłużymy się pewnym przykładem. 
Okazuje się bowiem, że dla przebiegu sterowania istotna jest niekiedy kolejność 
zapisu klauzul, a także podcelów w poszczególnych klauzulach. Aby się o tym prze- 


konać, wystarczy uruchomić programy z przykładów 5.1-1 i 5.1-2, podając cel 


GOAL: jestPrzodkiem(X,andrzej) 


Przykład 5.1-1 
PREDICATES 
% jestJednymZRodzicow(jedno z rodz.,dziecko) 
jestJednymZRodzicow(string , String) 


4% jestPrzodkiem(przodek, potomek) 
jestPrzodkiem(string , string ) 
CLAUSES 
jestJednymZzRodzicow (janusz _, andrzej |). 
jestJednymZRodzicow (stanislaw, janusz  ). 


jestJednymZRodzicow (jan „ Stanislaw). 
jestJednymZRodzicow (janusz  , agnieszka). 
jestPrzodkiem(A,B) 
:- jestJednymZRodzicow(A,B). 
jestPrzodkiem(A,B) 
:- jestJednymZRodzicow(R,B), 
jestPrzodkiem(A,R). 
Przykład 5.1-2 
PREDICATES 
% jestJednymZRodzicow(jedno z rodz. „dziecko) 
jestJednymZRodzicow(string „string ) 


4% jestPrzodkiem(przodek, potomek) 
jestPrzodkiem(string , string ) 
CLAUSES 
jestJednymZRodzicow (janusz _, andrzej ). 
jestJednymZRodzicow (stanislaw, janusz  ). 


jestJednymZzRodzicow (jan ,„ stanislaw). 
jestJednymZRodzicow (janusz _, agnieszka). 
jestPrzodkiem(A,B) 


:- jestPrzodkiem(A,R), 
jestJednymZRodzicow(R,B). 
jestPrzodkiem(A,B) 
:- jestJedńymZRodzicow(A,B). 


+ 


Obydwa te programy opisują relację jestPrzodkiem na podstawie następu- 
jącej rekurencyjnej definicji: „Przodkowie danej osoby to jej rodzice i wszyscy przod- 
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kowie rodziców”. Obydwa są poprawne pod względem logicznym, różnią się na- 
tomiast kolejnością klauzul oraz kolejnością podcelów klauzuli zbudowanej rekuren- 
cyjnie. Różnica ta nie jest istotna od strony logiki, ponieważ: X orY= =Y or X oraz 
X and Y = Y and X, jest natomiast istotna od strony sterowania. Można się o tym 
przekonać w prosty sposób, ponieważ drugi z programów nie działa poprawnie (wy- 
stępuje nieskończona rekurencja). Jest to wystarczający powód, aby problemom zwią- 
zanym ze sterowaniem poświęcić więcej miejsca. 


5.2. Interpretacja deklaratywna i imperatywna 
programu prologowego 


Programista musi w ogólnym przypadku zadbać zarówno o poprawność logiczną 
programu, jak i o jego poprawność od strony sterowania. Aby ułatwić to zadanie, 
przyjmuje się dwie uzupełniające się interpretacje programu prologowego — inter- 
pretację deklaratywną (logiczną) oraz imperatywną (rozkazową, proceduralną). 

W interpretacji deklaratywnej program (lub daną klauzulę) traktuje się jako 
deklarację relacji zachodzących między poszczególnymi obiektami. W interpretacji 
imperatywnej zwraca się uwagę na sam proces wykonywania programu. Zgodnie z tą 
interpretacją poszczególne warunki logiczne tworzące treść klauzuli traktuje się jako 
rozkazy, które muszą zostać wykonane w celu znalezienia poszukiwanego rozwią- 
zania. Na przykład klauzulę: 


dziadek(A,B) :- ojciec(A,X) and ojciec(X,B) 


można w interpretacji deklaratywnej odczytać następująco: ,„Dla każdej osoby A 1 oso- 
by DB: A jest dziadkiem B, jeżeli istnieje taka osoba X, że A jest ojcem X i X jest ojcem 8”. 
Stosując natomiast interpretację imperatywną można tę klauzulę odczytać na przy- 
kład tak: „Aby znaleźć dziadka A osoby B należy znałeźć osobę X, której ojcem jest A, 
taką, że można następnie w analizowanej bazie danych znaleźć potwierdzenie faktu, iż 
X jest ojcem B”. 

Jeżeli stosuje się interpretację imperatywną, to warunki logiczne występujące 
w treści klauzuli można traktować jako kolejne wywołania procedur. 

Interpretacją imperatywną posługujemy się na przykład śledząc wykony- 
wanie programu w celu usunięcia błędów (ang. debugging — porównaj p. D.4) oraz 
dokonując zmian w standardowym sposobie działania aparatu wnioskowania (p. 5.5). 
Interpretacja ta pozwała także świadomie korzystać ze standardowego działania apa- 
ratu wnioskowania w trakcie projektowania programu (p. 5.4). 

Większości predykatów można nadać zarówno interpretację deklaratywną, 
jak i imperatywną. Istnieją jednak predykaty, które mają wyłącznie interpretację 
imperatywną. Należą do nich przede wszystkim predykaty związane z operacjami 
wejścia-wyjścia (np. readlnt, write) oraz predykaty służące do modyfikowania stan- 
dardowego działania aparatu wnioskowania (np. odcięcie — por. p. 5.5). Podobnie nie 
ma interpretacji dekłaratywnej procedura wyświetlania elementów listy, przedstawio- 
na w p. 4.4.2. Przy jej opisie posługiwaliśmy się właśnie interpretacją imperatywną. 
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53. Standardowe działanie aparatu wnioskowania. 
Nawracanie 


W Prologu sterowanie jest przede wszystkim funkcją działania aparatu wnioskowania. 
Rola programisty w odniesieniu do sterowania polega na uwzględnieniu sposobu tego 
działania (np. wybór odpowiedniej kolejności klauzul) oraz na wprowadzeniu nie- 
zbędnych modyfikacji do tego działania. Aby tego dokonać, trzeba mieć pewną wie- 
dzę na temat standardowej pracy aparatu wnioskowania. W punkcie tym spróbujemy 
wyjaśnić, w jaki sposób aparat ten analizuje odpowiednie fakty i reguły w celu zna- 
lezienia odpowiedzi na zadane pytanie. Inaczej mówiąc, przedstawimy przebieg stan- 
dardowego procesu sterowania w trakcie wykonywania programu prologowcgo. 


Uwaga 


Przez standardowe działanie aparatu wnioskowania będziemy rozumieli działanie, 
które nie jest modyfikowane za pomocą specjalnie do tego celu przeznaczonych 
predykatów cut, fail, findal1 (por. p. 5.5). 


Aby znaleźć rozwiązanie zadania określonego przez cel lub podcel, albo 
mówiąc inaczej, aby znaleźć odpowiedź na zadane pytanie, aparat wnioskowania musi 
dokonać odpowiedniej analizy faktów i reguł tworzących bazę danych. Działanie 
aparatu wnioskowania w trakcie poszukiwania rozwiązania (lub rozwiązań, jeżeli jest 
ich kilka) polega na: 

— kolejnym przeglądaniu i analizie (realizacji) klauzul tworzących procedurę wska- 
zaną przez cel, 
— wykonywaniu nawrotów. 


Realizacja klauzuli-faktu kończy się sukcesem natychmiast po uzgodnieniu 
parametrów. Jeżeli natomiast klauzula ma postać reguły, to sukces osiąga się dopiero 
wówczas, gdy zostaną zrealizowane wszystkie podcele tworzące treść tej reguły. Wy- 
konanie klauzuli zakończone sukcesem oznacza, że został zrealizowany cel lub pod- 
cel, który zainicjował wykonywanie tej klauzuli. Najprostszy przypadek poszukiwania 
rozwiązania występuje wówczas, gdy podamy cel zewnętrzny, który jest celem pros- 
tym, a odpowiednia procedura jest zbudowana wyłącznie z faktów. 


Przykład 5.3—1 
specjalność (ewa „fizyka ). % 
specjalność (ewa „matematyka ). 4% 


specjalność (janusz „informatyka). % 
specjalność (marian „matematyka ). % 
specjalność (krystyna,polonistyka). % 


M2 W NN im 


Załóżmy, że zapytamy, czyją specjalnością jest matematyka: 
GOAL: specjalność (X matematyka) 
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Działanie aparatu wnioskowania będzie następujące: 


e Próba uzgodnienia parametrów z klauzulą 1 zawodzi, gdyż nie można uzgodnić 
stałej fizyka ze stałą matematyka. 

e Aparat wnioskowania przechodzi do analizy klauzuli 2. Następuje uzgodnienie 
parametrów — zmienna X zostaje ukonkretniona przez stałą ewa. Ponieważ klau- 
zula ma postać faktu, samo uzgodnienie oznacza, że podany cel został osiągnięty. 
Następuje więc wyświetlenie wyznaczonej wartości zmiennej: 

X=ewa 


e Aparat wnioskowania przechodzi do analizy klauzuli 3 w celu znalezienia kolej- 
nego, alternatywnego rozwiązania (mamy tu do czynienia z pierwszym nawrotem, 
czyli podjęciem próby poszukiwania innego rozwiązania, już po wyznaczeniu roz- 
wiązania pierwszego). Dla klauzuli 3 próba uzgodnienia zawodzi. 

Ge Drugie rozwiązanie 

X=marian 
zostaje znalezione na podstawie klauzuli 4. 

e Po znalezieniu drugiego rozwiązania ponownie następuje nawrót w celu znale- 
zienia jeszcze innych rozwiązań. Jednak próba uzgodnienia z klauzulą 5 zawodzi. 

e Ponieważ nie ma już więcej klauzul należących do procedury specjalnosc, więc 
znalezienie następnych rozwiązań jest niemożliwe. Następuje wyświetlenie infor- 
macji, że istnieją dwa rozwiązania (napis: 2 solutions). 

Nieco bardziej złożony sposób poszukiwania rozwiązań występuje wówczas, 
gdy baza danych oprócz faktów zawiera także reguły. 


Przykład 5.32 
PREDICATES 
% lubi(kto  , co) 
lubi (symbol, symbol) 


owoce (symbol ) 
smak (symbol, symbol) 
CLAUSES 
lubi(janek, X) :- owoce(X), smak(X,słodki). % 1 
lubi (janek, czekolada). 42 
owoce(maliny). 43 
owoce(cytryny). 4 
smak(cytryny, kwasny) 45 
smak(maliny , slodki). 46 A 


Załóżmy, że podamy następujący prosty cel: 
GOAL: lubi(janek, Co) 
W tym przypadku działanie aparatu wnioskowania będzie następujące. 


© W wyniku uzgodnienia celu z nagłówkiem klauzuli I następuje powiązanie zmien- 
nych Co oraz X. Ponieważ istnieje więcej niż jedna możliwość uzyskania odpowiedzi 
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na pytanie lubi (janek, Co) (procedura lubi składa się z dwóch klauzul), więc aparat 
wnioskowania Prologu ustawia tzw. znacznik nawracania (ang. backtracking point, 
backtracking marker) na kaluzulę 1 (poniżej przedstawiono bieżący stan prze- 
szukiwania bazy danych). Wspomniany znacznik zostanie wykorzystany podczas 
poszukiwania innej możliwości uzgodnienia celu lubi (janek, Co). Następnie aparat 
wnioskowania przechodzi do realizacji treści klauzuli 1, tzn. do wywoładnia jej 
pierwszego podcelu: owoce(X). 


1 -> |lubi(janek, X) :- owoce(X), smak(X,slodki). %1 
lubi(janek, czekolada). 42 
owoce(maliny). %3 
owoce(cytryny). 4 
smak(cytryny, kwasny) 5 
smak(maliny , slodki). % 6 


e Następuje uzgodnienie podcelu owoce(X) z pierwszym faktem procedury owoce, lzn. 
ukonkretnienie zmiennej X przez stałą maliny oraz ustawienie drugiego znacznika 
nawracania na klauzulę nr 3. 


1 -> lubi(janek, X) :- owoce(X), smak(X,slodki). %1 


lubi (janek, czekolada). % 2 
2 -> owoce(maliny). % 3 
owoce(cytryny). 4 
smak(cytryny, kwasny) 45 
smak(maliny , slodki). 4 6 


e Ponieważ klauzula 3 ma postać faktu, więc podcel owoce(X) zostaje zrealizowany 
i aparat wnioskowania przechodzi do wywołania drugiego podcelu klauzuli 1, tzn. 
smak (maliny, slodki) (zmienna X występująca w oryginalnej treści klauzuli została 
już ukonkretniona). 

e Próba uzgodnienia podcelu smak(maliny, slodki) z klauzulą 5 zawodzi i aparat 
wnioskowania próbuje uzgodnić ten podcel z kaluzulą 6. 

e Uzgodnienie skutkuje i podcel smak(maliny, slodki) zostaje zrealizowany (na klau- 
zulę 6 jest ustawiany trzeci znacznik nawracania). Ponieważ jest to ostatni podcel 
klauzuli 1, więc i ta klauzula zostaje zrealizowana, a tym samym zostaje znalezione 
pierwsze rozwiązanie celu głównego lubi (janek, Co). 


1 -> lubi(janek, X) :- owoce(X), smak(X,slodki). %1 


lubi (janek, czekolada). 2 
2 -> owoce(maliny). %3 
owoce(cytryny). 44 
smak(cytryny, kwasny) 45 
3 -> smak(maliny , slodki). > 6 


e Aparat wnioskowania wyświetla uzyskane rozwiązanie 
Co = maliny 
i przechodzi do poszukiwania innego rozwiązania. Następuje powrót do klauzuli, 
której nagłówek został uzgodniony z ostatnio wywołanym podcelem, tzn. do klau- 
zuli 6, oznaczonej znacznikiem o największym numerze (trzecim). 
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e Ponieważ jest to ostatnia klauzula procedury smak, więc próba uzgodnienia podcelu 
smak(maliny, slodki) z następną klauzulą nie jest możliwa (gdyż klauzuli takiej już 
nie ma). 

e Aparat wnioskowania usuwa trzeci znacznik nawracania i wycofuje się do miejsca 
oznaczonego znacznikiem drugim, tzn. do klauzuli 3. Klauzula ta była uzgodniona 
z podcelem owoce(X). Przy wykonywaniu nawrotu obowiązuje ogólna zasada, że 
wszystkim zmiennym jest przywracany taki stan, jaki miały one przed ustawieniem 
znacznika, do którego nawrót ten następuje. W omawianej sytuacji oznacza to, że 
ukonkretnienic zmiennej X przez stałą maliny traci ważność (zmienna ta jest po- 
nownie nieukonkrctniona). 


1 -> lubi(janek, X) :- owoce(X), smak(X,slodki). % 1 
lubi(janek, czekolada). % 2 
2 -> owoce(maliny). 4 3 
owoce(cytryny). 4 4 
smak(cytryny, kwasny) 45 
smak(maliny , slodki). 4 6 


e Następuje uzgodnienic podcelu owoce(X) z drugą klauzulą procedury owoce. Jego 
rezultatem jest ukonkretnienie zmiennej X przez stałą cytryny oraz przestawienie 
drugiego znacznika nawracania na klauzulę 4. Po tej operacji aparat wnioskowania 
zaczyna realizować drugi podcel klauzuli 1, tzn. smak(cytryny, slodki). 


1 -> lubi(janek, X) :- owoce(X), smak(X,slodki). £ 1 


lubi (janek, czekolada). » 2 
owoce (maliny). 43 
2 -> owoce(cytryny). 44 
smak(cytryny, kwasny) 45 
smak(maliny , slodki). 4 6 


e Ponieważ próby uzgodnienia tego podcelu z klauzulami 5 i 6 zawodzą, więc nastę- 
puje nawrót do klauzuli 4 (wskazywanej przez drugi znacznik) i poszukiwanie 
innego rozwiązania podcelu owoce(X), tj. innego ukonkretnienia zmienncj X. Zna- 
lezienie innego rozwiązania nie jest jednak możliwe, gdyż klauzula 4 jest ostatnią 
klauzulą w procedurze owoce. 

e Aparat wnioskowania usuwa drugi znacznik nawracania i wycofuje się do miejsca 
wskazywanego przez znacznik pierwszy. Ponieważ znacznik ten wskazuje klauzulę 
1, wywołaną przez cel główny lubi(janek, Co), więc związanie zmiennej Co ze 
zmienną X przestaje obowiązywać. 


1 -> lubi(janek, X) :- owoce(X), smak(X,slodki). % 1 
lubi (janek, czekolada). % 2 
owoce(maliny). % 3 
owoce(cytryny). % 4 
smak(cytryny, kwasny) 4 5 
smak(maliny , slodki). 46 


e Następuje przejście do klauzuli 2 i poszukiwanie innego ukonkretnienia zmiennej 
Co. Ponieważ druga klauzula ma postać faktu, więc cel główny zostaje osiągnięty 
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bezpośrednio w wyniku uzgodnienia. Pierwszy znacznik nawracania jest przesu- 
wany na klauzulę 2 i wyświetla się uzyskane rozwiązanie: 
(o = czekolada 


lubi(janek, X) :- owoce(X), smak(X,slodki). % 1 
1 -> lubi(janek, czekolada). % 2 
owoce(maliny). % 3 
owoce(cytryny). % 4 
smak(cytryny, kwasny) % 5 
smak(maliny „ slodki). 4 6 


e Ponieważ pierwszy znacznik nawracania wskazuje ostatnią klauzulę procedury 
wywoływanej przez cel główny, więc poszukiwanie dalszych rozwiązań nie jest 
możliwe. Na tym analiza bazy danych zostaje zakończona. Aparat wnioskowania 
usuwa pierwszy znacznik nawracania i wyświetla komunikat o liczbie znalezionych 
rozwiązań: 

2 solutions 


Podamy jeszcze dwa inne przykłady ilustrujące przebieg procesu poszu- 
kiwania rozwiązań. W pierwszym z nich (rys. 5.3—1) przedstawiono najbardziej cha- 
rakterystyczne sytuacje jakie mogą wystąpić w trakcie tego procesu, w drugim na- 
tomiast (rys. 5.3-2) przedstawiono drzewo ilustrujące cały proces poszukiwania dla 
jednego konkretnego celu. 

Ogólną postać programu, analizowanego na rys. 5.3-1, można przedstawić 
następująco: 


PREDICATES 
z(...) 
a(...) 
b(...) 
CLAUSES 
zl :-... 
z2 :- a,b. procedura "z" 
z3:- ... 


al. 
a2 procedura "a" 


bl. 
b2 procedura "b" 
b3. 


W programie tym występują trzy procedury oznaczone przez a, b oraz z. 
Procedury a i b są zdefiniowane za pomocą faktów, a procedura z — za pomocą reguł. 
Dla uproszczenia w zapisie procedur pominięto wszystkie argumenty, w zamian za to 
poszczególne klauzule oznaczono indeksami. Procedura a jest zdefiniowana za pomo- 
cą klauzul al i a2; procedura b za pomocą bl, b2 i b3, a procedura z — za pomocą zl, z2 
i z3. Celem głównym — podanym z zewnątrz — jest wywołanie procedury z. 
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Stan bieżący Stan następny 


bz 
?-- b3 
bl 
b2 
7?-> b3 


+ sukces 


Rys. 5.3-1. Przykłady charakterystycznych sytuacji, jakie mogą wystąpić w trakcie poszukiwania rozwiązań 


Poszczególne fragmenty rysunku o numerach od 1 do 6 należy traktować jako 
zupełnie niezależne. Lewa strona każdego z nich przedstawia pewien hipotetyczny 
stan, w którym może znajdować się aparat wnioskowania w trakcie poszukiwania 
rozwiązań, a prawa strona — stan następny. Strzałkami zaznaczono te klauzule, za 
pomocą których próbuje się właśnie realizować określony podcel (bieżące pozycje 
znaczników nawracania). Znak plus oznacza, że klauzula została zrealizowana, znak 
minus — że próba realizacji się nie powiodła. Znak ? oznacza próbę uzgadniania 
parametrów. 
Opis rysunku 5.31 
1. Znaleziono rozwiązanie dla z2, al, b2. Rozpoczyna się analiza następnej klauzuli 
procedury b (b3) w celu poszukiwania alternatywnego rozwiązania. 

2. Realizacja podcclu b za pomocą klauzuli b2 zakończyła się niepowodzeniem. 
Następuje przejście do następnej klauzuli (b3) — sytuacja podobna do 1. 

3. Znaleziono rozwiązanie dla z2, al, b3, gdzie b3 jest ostatnią klauzulą procedury b. 
Wykonuje się nawrót po sukcesie i próba uzgodnienia podcelu a z klauzulą a. 
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4. Realizacja podcelu b za pomocą klauzuli.b3 zakończyła się niepowodzeniem; b3 jest 
ostatnią klauzulą procedury b. Wykonuje się nawrót po niepowodzeniu i próba 
uzgodnienia podcelu a z klauzulą a — sytuacja podobna do 3. 

5. Znaleziono rozwiązanie dla z2, a2, b3; b3 jest ostatnią klauzulą procedury b. 
Następuje nawrót po sukcesie. Ponieważ a2 jest także ostatnią klauzulą procedury, 
więc nawrót aż do celu głównego z, po czym występuje próba uzgodnienia tego celu 
z klauzulą z3. 

6. Realizacja podcelu b za pomocą klauzuli b3 zakończyła się niepowodzeniem. Za- 
równo b3, jak i a2 są ostatnimi klauzulami. Następuje nawrót i próba uzgodnienia 
celu z z klauzulą z3 — sytuacja podobna do 5. 


A oto drugi przykład. Na rysunku 5.3-2 podano bazę danych zbudowaną 
wyłącznie z faktów, w której wymieniono specjalistów z trzech dziedzin. 

Załóżmy, że interesują nas wszystkie możliwości utworzenia zespołu złożo- 
nego z trzech specjalistów: automatyka ze stopniem doktora oraz elektronika i infor- 
matyka ze stopniami inżynierów. Wszyscy członkowie zespołu muszą być ponadto 
pracownikami tego samego wydziału. Odpowiednie pytanie oraz drzewo ilustrujące 
proces poszukiwań odpowiedzi na to pytanie przedstawiono na rysunku 5.32. 


DOMAINS 
st=string Adam 
x (1) Ula 
PREDICATES —— -—x (2) 
automatyk(st,st,st) Tomasz j_ Marian x (3) 
elektronik(st,st,st) | Piotr 
informatyk(st,st,st) Andrzej | (5) ——x (4) 
Maciej 
CLAUSES Janusz , 
automatyk(adam, inz,wl). Xx Ula x 
automatyk(maciej ,dr,w2). Ewa Marian 
automatyk(leszek,dr,w3). 
Piotr 
elektronik(tomasz,inz,w2). 
elektronik(andrzej ,inz,wl). Tomasz | 
elektronik(janusz,inz,w3). Andrzej Ula 
elektronik(ewa,inz,w2) Leszek ; x Mac x 
anusz arian 
informatyk(ula,dr,w2). [Sukces ] 
informatyk(marian,inz,w3). Ewa x Piotr Sukces 
informatyk(piotr,inz,w3). 
automatyk elektronik informatyk 
GOAL 
automatyk(Imiel,dr,W), 
elektronik(Imie2,inz,W), Rys. 5.3-2. Drzewo ilustrujące proces poszukiwania od- 
informatyk(Imie3,inz,W). powiedzi na zadane pytanie 


Realizacja celu głównego złożonego z kilku podcelów przebiega taki sam sposób, jak 
realizacja treści reguły. Znak x podany na rysunku 5.3-2 oznacza, że próba uzgod- 
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nienia zakończyła się niepowodzeniem. Przyczyny pierwszych pięciu porażek (numery 
od 1 do 5) są następujące: 

1 — Adam nie jest doktorem; 

2 — Ula nie jest inżynierem; 

3 — Marian nie pracuje na wydziale w2 jak Maciej i Tomasz; 

4 — Piotr nie pracuje na wydziale w2 jak Maciej i Tomasz; 

5 — Andrzej nie pracuje na wydziale w2 jak Maciej. 

Podczas szukania rozwiązań aparat wnioskowania stosuje metodę „,prze- 
szukiwania w głąb”. Najpierw znajduje rozwiązanie pierwszego podcelu (maciej, w2). 
Następnie szuka rozwiązania drugiego podcelu — zgodnie z ustalonymi dotychczas 
wartościami zmiennych (Imięl=maciej, W=w2) itd. Gdy dalsze przeszukiwanie w głąb 
staje się niemożliwe, jest wykonywany nawrót. Inaczej mówiąc, jeżeli w pewnej chwili 
okaże się, że opierając się na znalezionym dotychczas rozwiązaniu częściowym nie 
można kontynuować z powodzeniem poszukiwania dalszej części rozwiązania, to jest 
usuwany ostatni człon tego częściowego rozwiązania. Następnie jest on zastępowany 
innym i próba poszukiwania jest kontynuowana dalej, według nowego wariantu roz- 
wiązania częściowego. Dla podanego przykładu proccs ten przebiega następująco: 

(maciej) 

(maciej ,tomasz) 

(maciej ,ewa) 


(leszek) 

(leszek,janusz) 
(leszek,janusz,marian)  - sukces 
(leszek,janusz,piotr) - sukces 


Opisany proces poszukiwania rozwiązań nie oznacza przeszukiwania wszystkich moż- 
liwych przypadków. Na przykład, jeżeli jako automatyk jest brany pod uwagę Adam, 
to ponieważ nic ma on stopnia doktora, więc nie są już analizowane warianty (adam, 
tomasz,...), (adam,andrzej,...) itd. 


Uwaga 

Kompilator Turbo Prologu umożliwia wykonywanie programu w sposób krokowy — 
instrukcja po instrukcji. Dzięki temu można obserwować między innymi proces uz- 
gadniania parametrów i wykonywania nawrotów. Sposób takiej realizacji programu 
(nazywanej śledzeniem) przedstawiono w dodatku. 


5.4. Stosowanie standardowego działania aparatu 
wnioskowania 


Podczas projektowania programu nic wykonuje się za każdym razem szczegółowej 
analizy przebiegu nawracania w taki sposób, jak przedstawiono to w poprzednim 
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punkcie. Sam proces nawracania należy jednak poznać na tyle dokładnie, aby dobrze 
zdawać sobie sprawę z jego skutków i móc świadomie stosować go w projektowanych 
programach. Należy podkreślić, że dopiero nabycie umiejętności korzystania z nawro- 
tów świadczy o opanowaniu właściwego stylu porgramowania w Prologu. Poniżej 
podano przykłady trzech zadań, które można potraktować jako sprawdzenie swego 
zaawansowania w tej dziedzinie. 

Zachęcamy Czytelników, aby po przeczytaniu opisu kolejnych zadań spró- 
bowali napisać odpowiednie programy samodzielnie, a następnie porównali je z roz- 
wiązaniami podanymi w książce. Stopień trudności kolejnych zadań jest coraz więk- 
szy. Można przyjąć, że dopiero poprawne rozwiązanie trzeciego z nich świadczy o tym, 
iż Czytelnik dobrze opanował podstawy programowania w Prologu. Wszystkić trzy 
programy należy napisać używając wyłącznie standardowego sposobu działania apa- 


ratu wnioskowania, to znaczy nie stosując odcięć, predykatu repeat oraz innych tech- 
nik omawianych w p. 5.5 i dalszych. 


Zadanie 1 


Należy napisać program umożliwiający znalezienie wszystkich możliwych układów 
oczek uzyskanych w trzech rzutach kostką przy założeniu, że suma oczek jest równa 
liczbie podanej w pytaniu. Rozwiązanie zadania podano w przykładzie 5.4—1. 


Przykład 5.4—1 
PREDICATES 
% znajdzUkladOczek(wynikRzutuA,wynikRzutuB,wynikRzutuC , suma) 
znajdzUkladOczek(integer „integer „integer „integer) 
wykonanieRzutu(integer) 
CLAUSES 
znajdzukladOczek(A,B,C,N) 
:- wykonanieRzutu(A), 
wykonanieRzutu(B), 
wykonanieRzutu(C), 
N=A+B+C. 
wykonanieRzutu(1). 
wykonanieRzutu(2). 
wykonanieRzutu(3). 
wykonanieRzutu(4). 
wykonanieRzutu(5). 
wykonanieRzutu(6). 


Załóżmy, że podamy pytanie: 
GOAL: znajdzUkladOczek(A,B,C,9) 


W odpowiedzi zostają znalezione wszystkie możliwe układy oczek, których suma jest 
równa 9. Konstruowanie każdego z rozwiązań będzie przebiegało slopniowo, metodą 
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A+B+C=9 
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Rys. 5.4—1. Proces konstruowania rozwiązania dla przykładu 5.4—1 


prób i błędów — tak jak podano na rysunku 5.4—1. Na przykład w punktach 8 1 9 
następuje wycofanie się z rozwiązania częściowego A=1, B=1 i zastąpienie go warian- 
tem A=1, B=2. 

Należy zaznaczyć, że program zaprojektowano bez szczegółowej analizy pro- 
cesu nawracania, tylko na podstawie znajomości reguły, że gdy pewne rozwiązanie 
częściowe nie spełnia podanego warunku, to aparat wnioskowania wycofuje się z nie- 
go i przechodzi do konstruowania rozwiązania z innym wariantem rozwiązania częś- 
ciowego. Rysunek 5.4—1 sporządzono po napisaniu programu w celu zilustrowania 
procesu konstruowania rozwiązania. 


Zadanie 2 


Należy napisać program wypisujący wszystkie możliwe układy oczek, które przy za- 
danej w pytaniu liczbie rzutów kostką dają sumę oczek podaną w tym pytaniu (w za- 
daniu 1 liczba rzutów kostką była ustalona na stałe i wynosiła 3). Rozwiązanie zadania 
podano w przykładzie 5.4—2. 


Przykład 5.4—2 


DOMAINS 

listaOczek = integer* 

PREDICATES 

znajdzUkladOczek(integer, % liczba rzutow do wykonania 
integer, % poszukiwana suma oczek 
listaOczek) % poszukiwana lista oczek 

ukladOczek(integer, 4% liczba rzutow 
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listaOczek) 
czySumaPoprawna(1istaOczek, 
integer % poszukiwana suma oczek 
wykonanie_rzutu(integer) 
CLAUSES 
znajdzukladOczek(LiczbaRzutow, SumaOczek, UkladOczek) 
:- ukladOczek(LiczbaRzutow, UkladOczek), 
czySumaPoprawna(UkladOczek, SumaOczek). 


ukladOczek(0, []). % zakonczenie rekurencji, gdy wykonano 
% wszystkie rzuty 
ukladOczek(LiczbaRzutowDołykonania, 
[Wyni kRzutu|WynikiPozostalychRzutow]) 
:- LiczbaRzutowDoWykonania>0, 

WYKONANIE_RZUTU(WynikRzutu), 

PozostaloRzutow = LiczbaRzutowDołłykonania - 1, 

ukladOczek(PozostaloRzutow, WynikiPozostalychRzutow). 


czySumaPoprawna([], 0). % suma jest poprawna, jesli po 
% odjeciu od poszukiwanej sumy 
% oczek wynikow wszystkich rzutow 
% reszta wynosi zero 
czySumaPoprawna ([WynikRzutu|WynikiPozostalychRzutow], SumaOczek) 
:- Reszta = SumaOczek — WynikRzutu, 
czySumaPoprawna(WynikiPozostalychRzutow, Reszta). 


wykonanie _rzutu(1). 
wykonanie_rzutu(2). 
wykonanie rzutu(3). 
wykonanie_rzutu(4). 
wykonanie rzutu(5). 
wykonanie_rzutu(6). PA 


W porównaniu z poprzednim przykładem program ten używa list i jest zbu- 
dowany w sposób rekurencyjny. Zastosowano w nim typową technikę używaną przy 
tworzeniu listy nieodwróconej (por. przykład 4.4.2—2). Ogólny schemat procedury 
ukladOczek, która tworzy listę, można zapisać bowiem następująco: 


ukladOczek (... , []). 
ukladOczek (... , [WynikRzutu | WynikiPozostalychRzutow]) 


WYKONANIE_RZUTU(WynikRzutu), % patrz komentarz 1 


ukladOczek '... , WynikiPozostalychRzutow).  % patrz komentarz 2 
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% komentarz 1: ukonkretnienie glowy (WynikRzutu) 
% komentarz 2: wywolanie rekurencyjne w celu znalezienia ogona 
% (HynikPozośtalychRzutow) 


Podobnie jak w poprzednim przykładzie, program znajduje wszystkie rozwiązania — 
w tym przypadku wszystkie listy spełniające podane warunki, dotyczące liczby rzutów 
1 sumy oczek. Konstruowanie każdej z tych list odbywa się także w sposób stopniowy 
metodą prób i błędów. Jeżeli na przykład zadamy pytanie: 


GOAL: ukladOczek(3,9,ListaOczek) 


(zadanie podobne jak w poprzednim przykładzie, tzn. uzyskanie sumy oczek równej 9 
w trzech rzutach), to w pewnym momencie konstruowania rozwiązania nastąpi wyco- 
fanie się z częściowego rozwiązania [1, 1, 6] i przejście do nowego wariantu rozwią- 
zania częściowego: (1, 2 | ... ] — lista zawierająca elementy 1 i2, której ogon nie został 
jeszcze ukonkretniony. Jest to sytuacja podobna do przedstawionej na rys. 5.41. 


Zadanie 3 


Należy napisać program, który pozwala tworzyć prosty harmonogram. Dane są: 

— lista dni roboczych zawierająca liczby roboczogodzin podczas każdego dnia, 

— lista zadań zawierająca numery zadań i liczby roboczogodzin potrzebnych do 
wykonania kazdego zadania. 

Program ma tak rozmieścić poszczególne zadania w czasie, aby: 

— wszystkie zadania zostały wykonane, 

— każde z zadań było wykonywane bez przerw w trakcie jednego dnia (bez roz- 
dzielenia na dwa lub więcej dni). 


Rozwiązanie zadania podano w przykładzie 5.4—3. 


Przykład 5.4-3 
DOMAINS 
listaDni=dzien* 
dzien=dzien(nrDnia, 
godziny, % dlugosc dnia 
godziny, % liczba zajetych godzin 


listaZadan)  % harmonogram dnia 
listaZadan=zadanie* 
zadanie=zad(nrZad,godziny) 
nrZad,nrDnia,godzinysinteger 
PREDICATES 
rozdzielZadania(listaDni,  % ulozony harmonogram pracy 


listaDni,  % wykaz dni przed ulozeniem ham. 
listaZadan) 
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przydzielJednoZadanie(zadanie, 
listaDni, % przed przydzieleniem zadania 
listaDni) % po przydzieleniu zadania 
umiesczadanieWwPodanymDniu(zadanie, 
dzien, % przed umieszczeniem zadania 
dzien) % po umieszczeniu zadania 


CLAUSES 
rozdzielZadania(ListaDni ,ListaDni, ([]). % komentarz 1 
rozdzielZadania(KoncowaListaDni, 

ListaDniPrzedPrzydziel, 

[Zadanie | OgonZadan] ) 


przydzielJednoZadanie(Zadanie, % komentarz 2 
ŁistaDniPczedPrzydziel, 
ListaDniPoPrzydziel), 
rozdzielZadania(KoncowaListaDni, 
ListaDniPoPrzydziel, 


OgonZadan). % komentarz 3 
4-—-1—1—---- 
% Komentarz 1: Gdy wyczerpie Sie lista zadan, to za koncowa 
% liste dni (harmonogram) przyjmuje sie aktualna 
% liste dni. 


% Komentarz 2: Przydzielenie zadania stanowiacego głowę listy 
% zadan. 
% Komentarz 3: Rozdzielenie reszty zadan (ogona listy zadan). 


przydzielJednoZadanie(Zadanie, 
[Dzien |OgonDni],  % komentarz 1 
[DzienPoPrzydzieleniu|OgonDni])  % komentarz 1 
:- umiescZadanieWPodanymDniu(Zadanie, 
Dzien, 
DzienPoPrzydzieleniu). 
przydzielJednoZadanie(Zadanie, 
[Dzien|OgonDni], % komentarz 2 
[Dzien|OgonDniPoPrzydzieleniu])  % komentarz 2 
:- przydzielJednoZadanie(Zadanie, 
OgonDni, 
OgonDniPoPrzydzieleniu). 


4-—1----- 

% Komentarz: Procedura przeglada liste dni, starajac sie 

% przydzielic zlecenie do ktoregos z kolejnych dni. 
% Komentarz 1: Pierwsza klauzula probuje umiescic zadanie w 

% glowie listy dni (ogon dni - bez zmian). 


% Komentarz 2: Druga klauzula probuje umiescic zadanie w ogonie 
% listy dni (glowa tzn."Dzien" - bez zmian). 
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umiescZadanieWwPodanymDniu(zad(NrZad. CzasZad), 
dzien(NrDnia, % komentarz] 
DlugoscDnia, 
LiczzajetychGodz, 
HarmDnia), 
dzien(NrDnia, % komentarz 2 
DlugoscDnia, 
LiczzajGodzPoPrzydz, 
[zad(NrZad,CzasZad) |HarmDnia])) 
:- LiczzajGodzPoPrzydz=LiczZajetychGodz+CzasZad, 
LiczzajGodzPoPrzydz<=DlugoscDnia. 


% Komentarz:  Dolaczenie zadania do dotychczasowej listy 


ń zadan dnia. Po tej operacji zmienia sie tez 

% liczba zajetych godzin w rozpatrywanym dniu. 

% Komentarz 1: Opis dnia przed umieszczeniem zadania. 

4% Komentarz 2: Opis dnia po umieszczeniu zadania. $ 


Podstawową strukturą danych, którą operuje program, jest listaDni (rys. 
5.4-2 bi c). Jest to lista, w której każdy z elementów składa się z czterech pól: 
— numcru dnia, 
— długości dnia, tzn. całkowitej liczby godzin, które są do dyspozycji w danym dniu, 
— liczby godzin zajętych przez zadania przydzielone do realizacji w tym dniu, 
— harmonogramu dnia, tzn. listy zadań przydzielonych do realizacji w tym dniu 
(czwarte pole listy dni jest listą, należącą do dziedziny listaZlecen. 


Na początku działania programu nie ma jeszcze przydzielonych zadań na żaden dzień. 
Dlatego do pól określających liczbę zajętych godzin w poszczególnych dniach są 
wpisane zera, a do pól zawierających harmonogramy dni — listy puste (rys. 5.4-2 b). 
Celem programu jest odpowiednie rozdzielenie zadań na poszczególne dni, tzn. od- 
powiednie utworzenie list — harmonogramów dla każdego z dni (listy tworzące czwar- 
te pola listy dni). Na rysunku 5.4-2 c przedstawiono ostateczny stan listy dni dla 
jednego ze znalezionych rozwiązań, po zadaniu pytania: 


GOAL: rozdziel Zadania (Harmonogram, 
[dzien(1,8,0,[]), dzien(2,7,0,[]). 
dzien(3,8,0,[])]. 
(zad(1,4), zad(2,1), zad(3,1), zad(4,1), 
zad(5,6), zad(6,3), zad(7,7)]) 


Program znajduje wszystkie możliwe rozwiązania. Ogólna zasada jego działania jest 

podobna do przedstawionej w przykładzie 5.4—2 i można ją opisać następująco. 

1. Dla rozpatrywanego zadania najpierw wykonuje się próbę umieszczenia go w pier- 
wszym dniu, t2żn. w głowie listy dni. Realizuje to pierwsza klauzula procedury 
przydziel JednoZadanie. Jeżeli nic jest to możliwe (liczba zajętych godzin w danym 
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Nr dnia 
Długość dnia 
Liczba zajętych godzin 


Harmonogram dnia 


Drugi dzień 


bkrEleJelE 


Trzeci dzień 


Nr dnia 


Długość dnia 


dB) qele 


Liczba zajętych godzin 


[zad(6,3) | —|zad(2,1) | —|zad(1,4) | | Harmonogram dnia 


Drugi dzień 


JARE 


Trzeci dzień 


Rys. 4-2. Struktura danych zastosowana w przykładzie 5.4-3: a) lista zadań, które mają być rozdzielone, 
b) lista dni na początku procesu, c) lista dni po rozdzieleniu zadań (jedno z rozwiązań) 
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dniu nie może być większa niż długość tego dnia — kontroluje to procedura umiesc- 
ZadaniewPodanymDniu), to następuje przejście do operacji opisanych w punkcie 2. 

2. Wykonuje się próbę umieszczenia zadania w ogonie listy dni: wydziela się ten ogon 
(nagłówek drugiej klauzuli w procedurze przydziel JednoZadanie) i traktuje go jako 
rozpatrywaną listę dni, przechodząc ponownie do punktu 1 (rekurencyjne wy- 
wołanie procedury przydziel JednoZadanie w drugiej klauzuli tej procedury). 


Po przydzieleniu zadania przechodzi się do rozdzielenia pozostałych zdań, czyli do 
rozdzielenia ogona zadań (wszystkie zadania, które należy rozdzielić, są zebrane 
w liscieZadan, będącej daną wejściową do całego programu). Realizuje to procedura 
rozdzielZadania. Jeżeli kolejnego zadania nie można umieścić już w żadnym dniu, to 
znączy, że dotychczasowe rozwiązanie częściowe nie może doprowadzić do zna- 
lezienia ostatecznego rozwiązania. W takiej sytuacji, podobnie jak w dwóch poprzed- 
nich przykładach, aparat wnioskowania wycofuje się o jeden krok z ustalonego już 
rozwiązania częściowego, tzn. unicważnia ostatnio dokonane przydzielenie zadania 
i próbuje rcalizować inny wariant przydzielenia Lego zadania (w którymś z następnych 
dni) itd. Cały proces kończy się po rozdzieleniu wszystkich zadań, tzn. gdy roz- 
patrywana lista zadań jest listą pustą (pierwsza klauzula procedury rozdzielZadania). 

Każda z list wewnętrznych listy dni, tzn. list tworzących harmonogramy posz- 
czególnych dni, jest budowana na zasadzie listy odwróconej. Operację dołączenia 
nowego elementu (zadania) do istniejącej listy (HarnOnia) realizuje procedura umiesc- 
ZadanieWPodanymDniu. Ponicważ w nagłówku procedury występuje wiele zmiennych 
pomocniczych, które utrudniają dostrzeżenie sposobu dołączania zadania do utwo- 
rzoncgo wcześniej częściowego harmonogramu, więc poniżej podano ten nagłówek 
ponownic, wymicniając tylko te parametry, którc wiążą się bezpośrednio z tą operacją 


umiescZadaniewPodanymDniu(zad(NrZad,CzasZad), 
dzien(...„larmDnia), 
dzien(...,[zad(NrZad,CzasZad) |HarmDnia])) 


Program z przykładu 5.4—3 znajduje wszystkie możliwe rozwiązania, tzn. wszystkie 
możliwe ukonkretnienia zmiennej Harmonogram podanej w pytaniu: 
GOAL: rozdzielZadania(Harmonogram, [...], [...]) 


Zachęcamy Czytelników do zmodyfikowania tego programu tak, żcby znajdował tylko 
jedno rozwiązanie. 


5.5. Modyfikowanie standardowego działania aparatu 
wnioskowania 


Przedstawimy teraz predykaty umożliwiające modyfikowanie standardowego sposobu 
działania aparatu wnioskowania. Ich użycie jest często niezbędne, ponieważ w pew- 
nych sytuacjach działanie standardowe jest bardzo nicefcktywne, a niekiedy w ogóle 
nie pozwala zrcalizować pewnych zadań, które pojawiają się w trakcie projektowania 
programu. Programista musi więc nauczyć się, w jaki sposób używając wspomnianych 
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predykatów można osiągnąć pożądane, nietypowe zachowanie aparatu wnioskowania, 
niezbędne do realizacji danego zadania. 


5.5.1. Wpływ odcięcia na zmianę działania aparatu wnioskowania 


Odcięcie (ang. cut) jest specjalnym predykatem standardowym, za pomocą którcgo 
programista może ograniczać proces automatycznego nawracania. Predykat ten jest 
zapisywany za pomocą znaku wykrzyknika. 

Jeżeli analizujemy znaczenie odcięcia jako jednego z podcelów klauzuli, to 
oznacza ono, że po jego wykonaniu nie będzie możliwy nawrót do wszystkich tych 
podcelów, które wystąpiły w tej klauzuli wcześniej (przed odcięciem). 


Przykład 5.5.1-1 


PREDICATES 

a(integer) 

b(integer) 

c(integer) 

s(integer,integer,integer) 
CLAUSES 

s(X,Y,Z) :- a(X), b(Y), !, c(Z). 

a(100). 

a(200). 

b(10). 

b(20). 

b(30). 

c(1). 

c(2). 


Podając cel GOAL: s(X,Y,Z) otrzymamy dwa następujące rozwiązania: 

X=100  Y=10  Z=1 

X=100  Y=10  Z=2 
Wśród tych rozwiązań nie ma np. rozwiązania: 

X=100 Y=20  Z=1 
ponieważ po wykonaniu odcięcia nawroty mogą odbywać się jedynie w ramach reali- 
zacji podcelu c (nie jest możliwy nawrót do procedur a ib). 

Jeżeli analizujemy znaczenie odcięcia jako elementu występującego w treści 
danej procedury, to oznacza ono, że po jego wykonaniu nie jest możliwy nawrót do 
klauzul zapisanych za klauzulą zawierającą to odcięcie. 


Przykład 5.5.1-2 


PREDICATES 
a(integer) 
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b(integer) 

c(integer) 

s(integer,integer, integer) 
CLAUSES 

s(X,Y,Z) :- a(X), b(Y), c(Z). 

a(100). 

a(200). 

b(10). 

b(20):-!. 

b(30). 

c(1). 

c(2). C 


Podając cel GOAL: s(X,Y,Z) otrzymamy osiem następujących rozwiązań: 
X=100 Y=10 Ż=1 X=200 Y=10 Z=l 
X=100 Y=10 2=2 X=200  Y=10 Z=2 
X=100 Y=20 Z=l X=200  Y=20 2=1 
X=100 Y=20 2=2 X=200 Y=20 Z=2 


Wśród tych rozwiązań nie ma np. rozwiązania X=100, Y=30, Z=1, ponieważ po wy- 
konaniu odcięcia nawrót do trzeciej kauzuli b nie jest możliwy. 

Odcięcie ma znaczenie lokalne, tzn. jest ważne jedynie w czasie wykonywania 
danej procedury. Na przykład wystąpienie odcięcia w treści procedury b nie oznacza, 
że podczas wykonania klauzuli s(X,Y,Z) :- a(X), b(Y), c(Z) nie jest możliwy nawrót 
przed b. Dlatego też np. po otrzymaniu rozwiązania: X=100, Y=20, Z=2 jest znajdowane 
rozwiązanie X=200, Y=10, Z=1. 

Miejsce, w którym występuje odcięcie w treści danej klauzuli, nie jest istotne 
dla odcinania dalszych klauzul tej procedury. Na przykład po wykonaniu odcięcia 
w żadnym z następujących przykładów: 


1 a(1,2). 

a(X,Y):- I,b(X),c(Y). 
a(3,4). 

2 a(1,2). 
a(X,Y):-b(X),!l,c(Y). 
a(3,4). 

3 a(1,2). 
a(X,Y):-b(X),c(Y),1. 
a(3,4). 


nie jest możliwy nawrót do trzeciej klauzuli procedury a. 

Po wykonaniu odcięcia jego znaczenie pozostaje ważne także wówczas, gdy 
realizacja dalszej części klauzuli, w której się ono znajduje, nie zostanie zakończona 
sukcesem; np. w klauzuli a(X,Y) :- I, b(X), c(Y) — gdy zawiedzie podcel b lub c. 

Odcięcie jest predykatem, który ma ścisłe i jasne znaczenie przy zasto- 
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sowaniu interpretacji imperatywnej, nie ma natomiast znaczenia przy interpretacji 
deklaratywnej (można jedynie powiedzieć o nim, że jest zawsze prawdziwe). 


5.5.2. Korzystanie z odcięć 


Przedstawimy teraz kilka charakterystycznych problemów, często pojawiających się 
przy projektowaniu programów, które rozwiązuje się używając odcięcia. Podamy 
także kilka typowych procedur, zawierających odcięcia. 

Pierwszym z problemów, który należy wymienić, jest przekształcanie proce- 
dur niedetrministycznych na deterministyczne. Procedurą niedeterministyczną nazy- 
wamy procedurę, która dzięki nawracaniu może znaleźć więcej niż jedno rozwiązanie. 

Załóżmy na przykład, że chcemy tak przekształcić program z przykładu 
5.4—1, aby znajdował tylko jeden (pierwszy) układ oczek spełniający wymagany waru- 
nek. Cel ten możemy osiągnąć dodając odcięcie na końcu klauzuli znajdzukladOczek. 


Przykład 5.5.2—1 


PREDICATES 
% znajdzUkladOczek(wynikRzutuA,wynikRzutuB,wynikRzutuC , suma) 
znajdzUkladOczek(integer „integer „integer „integer) 
% wykonanieRzutu(wynikRzutu) 
wykonanieRzutu(integer) 


CLAUSES 
znajdzUkladOczek(A,B,C,N) 
wykonanieRzutu(A), 
wykonanieRzutu(B), 
wykonanieRzutu(C), 
N=A+B+C, |. 


wykonanieRzutu(1). 
wykonanieRzutu(2). 
wykonanieRzutu(3). 
wykonanieRzutu(4). 
wykonanieRzutu(5). 


wykonanieRzutu(6). 7) 


Innym typowym problemem, w którym korzysta się z odcięcia, jest ogranicze- 
nie przestrzeni poszukiwań lub — inaczej mówiąc — wyeliminowanie zbędnych po- 
szukiwań dalszych rozwiązań wówczas, gdy wiemy, że istnieje tylko jedno rozwiązanie. 
Efekt działania programu jest wtedy identyczny, lecz komputer nie traci czasu na 
bezowocne przeszukiwanie bazy danych. Jest to istotne zwłaszcza przy dużych bazach 
danych. Załóżmy, że naszym celem jest wyznaczenie matki dancj osoby (dla uprosz- 
czenia będziemy posługiwali się tylko imionami). Jeżeli dysponujemy bazą danych: 
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% matka(Matka „Dziecko ) 
matka (ewa „agnieszka). 
matka (ewa „andrzej ). 
matka(cecylia,janusz  ). 
matka(cecylia, waldemar). 


i zadamy pytanie 
GOAL: matka(M,agnieszka) 


to Prolog odpowie: M=ewa — na podstawie uzgodnienia parametrów pytania z pierwszą 
klauzulą. Następnie jednak będzie próbował uzgodnić pytanie z drugą, trzecią 
1 czwartą klauzulą, w celu znalezienia innego rozwiązania. Aby zapobiec zbędnemu 
szukaniu nie istniejących dalszych rozwiązań można użyć w pytaniu odcięcia: 

GOAL: matka(M,agnieszka),l. 


Można także umieścić odcięcie bezpośrednio w procedurze matka (przykład 5.5.2—2). 
W tym przypadku cel nie musi zawierać odcięcia. 


Przykład 5.5.2—2 


PREDICATES 
% matka(Matka , Dziecko) 
matka(string, string ) 
CLAUSES 
matka (ewa „agnieszka) :- ! 
matka (ewa „andrzej ) :- |. 
matka(cecylia,janusz  ) :- I 
matka(cecylia, waldemar). $ 
W ostatniej klauzuli procedury matka nie ma odcięcia, ponieważ nie ma za nią innych 
klauzul i dalsze nawroty są niemożliwe. 

Użycie odcięcia w taki sposób, jak podano w przykładzie 5.5.2—2, ogranicza 
uniwersalność procedury. Do zagadnienia tego powrócimy w p. 5.5.3. 

Kolejnym problemem, który może wystąpić w trakcie projektowania progra- 
mu, jest optymalna realizacja zadania wyboru jednej z dwóch wykluczających się 
możliwości. W Pascalu służy do tego instrukcja if ... then ... else. Rozważmy obliczanie 
wartości bezwzględnej podanej liczby. W Pascalu realizuje się to instrukcją 


ifX> =0 then WB=X 
else WB =—X; 
a w Prologu — za pomocą procedury 
moduł(X,X) :- X>=0. 
moduł(X,WB) :- X<0 , WB=-X. 


Oczywiście, jeżeli jest spełniony pierwszy warunek, to nie jest spełniony drugi i na 
odwrót. Stosując odcięcie możemy ograniczyć się do jednorazowego sprawdzenia 
wartości X (przykład 5.5.2—3). 
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Przykład 5.5.2-3 


PREDICATES 


4 modul (liczba,wartosc bezwzgledna) 
modul(rea] „real ) 


CLAUSES 
modul(X,X) :- X>=0 , I. 
modul (X,WB) :- WB=-X. + 


Taki sposób postępowania jest istotny zwłaszcza przy bardziej skomplikowanym wa- 
runku. Załóżmy, że naszym celem jest dołączenie elementu do listy pod warunkiem, 
że element ten dotychczas w niej nie występował. W przykładzie 5.5.2—4 podano dwie 
procedury realizujące to zadanie. W drugiej z nich (dopisz2) zastosowano odcięcie, 
dzięki czemu wywołanie procedury member występuje tylko w pierwszej klauzuli. 


Przykład 5.5.24 


DOMAINS 
lista=sinteger* 

PREDICATES 

% Liczba , LiWe , Liwy 

dopiszl(integer, lista, lista) 
dopisz2(integer, lista, lista) 
member (integer, lista) 

CLAUSES 
dopisz1(X,L,L) :- member(X,L). 
dopiszi(X,L,[X|L]) :- not(member(X,L)). 
dopisz2(X,L,L) :- member(X,L), 1. 
dopisz2(X,L,[X|L]). 
member (X, [X|_]). 
member (X,[_|0gon]) :- member(X,0gon). + 


Na zakończenie powróćmy jeszcze do przekształcania procedur niedeter- 
ministycznych na deterministyczne. W przykładzie 5.5.2-5 podano procedurę two- 
rzenia listy liczb całkowitych, wprowadzanych kolejno z klawiatury. Tworzenie listy 
kończy się wówczas, gdy zostanie podany ciąg znaków nie będący liczbą całkowitą 
(w szczególności, gdy zostanie naciśnięty jedynie klawisz Enter). 


Przykład 5.5.2-5 


DOMAINS 
lista = integer* 
PREDICATES 
utworzListe(lista) 
CLAUSES 
utworzListe([6|0g]) :- readint(G), !, utworzListe(0g). 
utworzListe([])., 0 
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W programie zastosowano schemat budowy listy nieodwróconej (por. przykład 4.4.2— 
2). Zakończenie rckurencji, tzn. przejście do drugiej klauzuli następuje wówczas, gdy 
zawiedzie pierwsza, tzn. jeżeli zostanie odczytany ciąg znaków nie będący liczbą. W 
pierwszej klauzuli procedury zastosowano odcięcie. Bez niego procedura byłaby pro- 
cedurą niedeterministyczną, tzn. byłyby wykonywane nawroty po sukcesie w celu 
znalezienia innych rozwiązań. Jeśli zostałby wprowadzony następujący ciąg znaków 
(. 1 - oznacza naciśnięcie klawisza Enter): 


1.) 
2 „I 
3 „J 
„| 
to przy braku odcięcia, zamiast jednej listy: [1,2,3] otrzymalibyśmy aż cztery: 
(1,2,3] 
[1,2] 
[1] 
(] 
Spróbujmy uzasadnić ten rezultat. Załóżmy, że w trakcie tworzenia lista znajduje się 
w następującym stanie: 
(1] [2] [...] ]] 
CH 
Ogon 
i że z klawiatury wprowadzamy liczbę 3. W wyniku działania pierwszej klauzuli 0gon 
zostanie powiązany z następującą listą: 


(3| [...] ] 
Sz” 
kolejnyO0gon 


Stan całej listy będzie więc następujący: 
(1[[2[(3/[...] ] 1 
<< 
Ogon 
Gdyby następnie nacisnąć sam klawisz Enter, to pierwsza klauzula zawiodłaby 
i w wyniku działania drugiej klauzuli Ogon zostałby ukonkretniony przez listę pustą; 
otrzymalibyśmy następujące rozwiązanie: [1| [2| [3] []]]] czyli 11,2,3]. Po tym 
jednak zostałby wykonany nawrót po sukcesie, tzn. powrót do stanu listy: 
(1] (2] [...11] 
CJ 
0gon 
i przejście do drugiej klauzuli procedury. W wyniku jej działania ogon występujący 
w tej liście zostałby ukonkretniony przez listę pustą. Otrzymalibyśmy więc drugie 
rozwiązanie: [1| (2| (]]], czyli [1,2] itd. sa 
Tworzenie listy na podstawie danych wprowadzanych z klawiatury stosuje się 
w wielu programach. W przykładzie 5.5.2-6 przedstawiono procedury tworzenia listy 


zleceń i listy zadań, o które można uzupełnić program przygotowania harmonogramu 
z przykładu 5.4—3. Pozwalają one wyeliminować konieczność niewygodnego wprowa- 
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dzania tych list bezpośrednio w pytaniu (przykład zawiera także dodatkową procedu- 
rę organizacyjną start, której wywołanie powoduje uruchomienie całego programu). 


Przykład 5.5.2-6 


CLAUSES 

start:- 
nl,nl, 
write("PODAJ LISTE DNI (Enter - konczy wprowadzanie):"),nl 
utworzListeDni (LiDni),n1l,n!l, 
write("PODAJ LISTE ZLECEN (Enter - konczy wprowadzanie):"),nl, 
utworzListeZadan(LiZad), 
rozdzielZadania(LiDni,LiZad). 


utworzListeDni ([dzien(NrDnia,DlugoscDnia,0, []) | OgonDni]) 
:- nl,write("nr:"), readint(NrDnia), 
write("czas:"), readint(DlugoscDnia), | 
utworzListeDni (OgonDni). 
utworzListeDni ([]). 


utworzListeZadan([zad(NrZad,CzasZad) |OgonZadan)) 
:- nl, write("nr:"), readint(NrZad), 
write("czas:"), readint(Czaszad), | 
utworzListeZadan(OgonZadan). 
utworzListeZadan([]). 


5.5.3. Niebezpieczeństwa związane z użyciem odcięcia 


Użycie odcięcia wpływa na zmianę nie tylko sterowania, ale i znaczenia logicznego 
odpowiednich predykatów. Jeśli dla procedury z przykładu 5.5.2-2 podamy pytanie: 
GOAL: matka(Matka, agnieszka) 
to otrzymamy taką samą odpowiedź, jaką uzyskalibyśmy bez używania odcięć, tzn. 
Matkasewa. Jeżeli jednak zadamy pytanie: 
GOAL: matka(ewa,Dziecko) 
to, ze względu na ograniczenie nawrotów, zamiast dwóch rozwiązań: 


Dziecko=agnieszka 
Dziecko=andrzej 


otrzymamy tylko jedno: 
Dziecko=agnieszka 
Stosując odcięcia należy dokładnie przeanalizować skutki ich użycia, pamiętając 


o tym, że wpływ odcięć na działanie danej procedury może być różny, w zależności od 
tego, jakie pytanie zainicjowało jej realizację. 
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5.6. Inne predykaty związane ze sterowaniem 


5.6.1. Fail — predykat powodujący niepowodzenie wykonywania 
klauzuli 


Fai] jest standardowym predykatem, który zawsze zawodzi. Efekt wywołania fail 
odpowiada np. użyciu równości 2 =3. W przykładzie 5.6.1-1 pokazano typowe użycie 
tego predykatu w celu bezpośredniego wymuszenia nawrotu; powoduje on, że są 
znajdowane wszystkie rozwiązania (a nie tylko jedno), tzn. wszystkie układy oczek, 
które w trzech rzutach kostką dają zadaną sumę oczek. 


Przykład 5.6.1-1 


PREDICATES 
% znajdzUkladOczek(wynikRzutuA,wynikRzutuB,wynikRzutuC , suma) 
znajdzUkladOczek(integer „integer „integer „integer) 
wykonanieRzutu(integer) 
GOAL 
write("podaj sume oczek:"), 
readlnt(N), 
znajdzUkladOczek(A,B,C,N), 
write(A), ni, 
write(B), nl, 
write(C), nl, 


CLAUSES 
znajdzUkladOczek(A,B,C,N) 
:-wykonanieRzutu(A), 
wykonanieRzutu(B), 
wykonanieRzutu(C), 
N=A+B+C. 
wykonanieRzutu(1). 
wykonanieRzutu(2). 
wykonanieRzutu(3). 
wykonanieRzutu(4). 
wykonanieRzutu(5). 
wykonanieRzutu(6). $ 


W kolejnym przykładzie przedstawiono inne typowe użycie predykatu fail — 
w połączeniu z odcięciem. Jeżeli w treści pewnej klauzuli występuje sekwencja: 
« „ 1 , fail. 


to oznacza ona, że po wykonaniu predykatu fai1 zawodzi wykonanie całej procedury 
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(a nie tylko danej klauzuli). Fakt ten wykorzystano do sygnalizowania próby dzielenia 
przez zero. 


Przykład 5.6.1-2 


PREDICATES 
podziel(real,real,rea]) 
CLAUSES 
podziel (_,B,_) 
:- B=0, 
write("Proba dzielenia przez 0"), nl, 
I, fail. 
podziel (A,B,C) 
:- C=A/B. + 


Inne bardzo ważne zastosowania predykatu fai1 powiązane z użyciem dyna- 
micznych baz danych przedstawiono w p. 5.7. 


5.6.2. FindAl11 — predykat gromadzący wszystkie możliwe 
rozwiązania 


Predykat ma następującą ogólną postać 
findAl1 (Zmienna, cel, Lista) 
lub dokładniej 
findAl1(ZmiennaX, cel(...,ZmiennaX,...) , Lista) 
1 powoduje: 
— wywołanie celu podanego jako drugi parametr, 
— znalezienie wszystkich rozwiązań zmiennej wymienionej jako parametr pierwszy 
(zmienna ta musi występować także w celu wymienionym jako drugi parametr), 
— utworzenie z tych rozwiązań listy, której nazwa jest podana jako parametr trzeci. 


Użycie predykatu findAll zilustrowano w przykładach 5.6.2-1 i 5.6.2-2. 
W pierwszym Zz nich w liście Lista są gromadzone liczby reprezentujące wiek posz- 
czególnych osób, a następnie jest wyliczana średnia arytmetyczna tych wartości. 
W drugim są gromadzone wszystkie układy oczek, spełniające warunek dotyczący 
sumy oczek. Ponieważ pojedyncze rozwiązanie (pojedynczy układ oczek) jest listą, 
wobec tego w wyniku działania procedury findAl1 otrzymamy listę list. 


Przykład 5.6.2-1 


DOMAINS 
imie=string 
wiek,zarobki =rea| 
lista =wiek* 
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PREDICATES 
osoba(imie,wiek,zarobki) 
SsumaE lementowListy(lista,wiek,integer) 
GOAL 
finda1] (Wiek, osoba(_, Hiek, _), Lista), 
sumak lementowListy(Lista, Suma, N), 
Średnia=Suma/N, 
write("Sredni wiek = ",Srednia),nl. 


CLAUSES 
sumaE lementowListy([], 0, 0). 
sumak lementowListy([G6|0g], Suma, N) 
:- sumaElementowListy(0g, S1, N1), 
Suma=G+S1, 
N=N1+1. 
osoba(janusz, 34, 100). 
osoba(tomek , 24, 50). 
osoba(witek , 30, 200). 


Przykład 5.6.2—2 


DOMAINS 
lista0czek = integer* 
listaWwynikow=listaOczek* 


PREDICATES 
znajdzUkladOczek(integer, % liczba rzutow do wykonania 
integer, % poszukiwana suma oczek 
listaO0czek)  % poszukiwana lista oczek 
ukladOczek(integer, % liczba rzutow 
listaOczek) 
czySumaPoprawna(listaOczek, 
integer % poszukiwana suma oczek 


wykonanie_rzutu(integer) 
utworzListełynikow(integer, integer, listaWynikow) 


CLAUSES 

utworzListeHynikow (LiczbaRzutow, 
PoszukiwanaSumaOczek, 
Lista) 


:- findAl] (UkladOczek, 
znajdzUkladOczek(LiczbaRzutow, 
PoszukiwanaSumaOczek, 
UkladOczek), 
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CLAUSES 


znajdzukladOczek(LiczbaRzutow, SumaOczek, UkladOczek) 
:- ukladOczek(LiczbaRzutow, UkladOczek), 
czySumaPoprawna(UkladOczek, SumaOczek). 
ukladOczek(0, []). % zakonczenie rekurencji, gdy wykonano 
% wszystkie rzuty 
ukladOczek(LiczbaRzutowDołykonania, 
[WynikRzutu|WynikiPozostalychRzutow]) 
:- LiczbaRzutowDoWykonania>0, 
WYKONANIE_RZUTU(WynikRzutu), 
PozostaloRzutow = LiczbaRzutowDoWykonania - 1, 
ukladOczek(PozostałoRzutow, WynikiPozostalychRzutow). 


czySumaPoprawna([], 0). % suma jest poprawna, jesli po 
% odjeciu od poszukiwanej sumy 
% oczek wynikow wszystkich rzutow 
% reszta wynosi zero 
czySumaPoprawna([WynikRzutu|WynikiPozostalychRzutow], SumaOczek) 
:- Reszta = S$umaO0czek - WynikRzutu, 
czySumaPoprawna(HWynikiPozostalychRzutow, Reszta). 


wykonanie_rzutu(1). 
wykonanie_rzutu(2). 
wykonanie_rzutu(3). 
wykonanie_rzutu(4). 
wykonanie_rzutu(5). 
wykonanie_rzutu(6). 


5.6.3. Not — predykat zaprzeczenia 


Argumentem predykatu not jest inny predykat (cel lub podcel). Jeżeli wykonanie 
predykatu będącego argumentem kończy się sukcesem, to not zawodzi, a jeżeli kończy 
się niepowodzeniem, to not skutkuje. Oznacza to, że jeżeli np. dla bazy danych: 

kobieta(hanka). 

kobieta(malgorzata). 

kobieta(mariola). 


zadamy pytanie 

GOAL: not(kobieta(maria) ) 
czyli: „Czy Maria nie jest kobietą?”, to uzyskamy odpowiedź YES, ponieważ cel: 
kobieta(maria) zawodzi. Można więc powiedzieć, że aparat wnioskowania Prologu 
działa w myśl założenia, że jeżeli pewna informacja nie jest dołączona do bazy danych 
programu, to przyjmuje się, że jest dołączona informacja przeciwna (założenie o świc- 
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cie zamkniętym). W tym przypadku „świat” oznacza bazę danych programu. Można ją 
uważać za zamkniętą, ponieważ program zachowuje się tak, jak gdyby baza zawierała 
całą możliwa wiedzę. 

Wszystkie zmienne, występujące w podcelu stanowiącym argument predy- 
katu not, muszą być ukonkretnione przed wywołaniem tego predykatu. 


Przykład 5.6.3—1 


PREDICATES 
kandydatNaMeza (symbol ) 
mezczyzna(symbo] ) 
zonaty(symbo] ) 


CLAUSES 
kandydatNaMeza(X) :- mezczyzna(X), 
not( zonaty(X) ). 
mezczyzna(krzysztof). 
mezczyzna(roman). 
mezczyzna(marian). 
zonaty(roman). 
zonaty(marian). (2 


Jeśli klauzula kandydatNaMeza byłaby zapisana w następujący sposób (inna kolejność 
podcelów): 
kandydatNaMeza(X) :- not( zonaty(X) ), 
mezczyzna(X). 
to wystąpiłby błąd, gdyż w chwili wywołania predykatu not zmienna X byłaby nie- 
ukonkretniona. Podccl wywoływany przez predykat not może mieć nieukonretnione 
argumenty jedynie w przypadku zastosowania zmiennej anonimowej. 


Przykład 5.6.3-2 


PREDICATES 
kandydatNaMeza (symbol ) 
mezczyzna(symbo] ) 
%zonaty(imię ,„ ktory raz) 
zonaty(symbol, integer) 


CLAUSES 
kandydatNaMeza(X) :- mezczyzna(X), 
not( zonaty(X,_) ). 
mezczyzna(krzysztof). 
mezczyzna(roman). 
mezczyzna(marian). 
zonaty(roman, 2). 
zonaty(marian, 1). + 
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Uwaga 


Należy zwrócić uwagę na to, że w związku z założeniem o świecie zamkniętym dzia- 
łanie predykatu not nie odpowiada w ścisły sposób definicji negacji, występującej 
w logice matematycznej. Wyraża się to w zasadzie mówiącej, że jeżeli pewien warunek. 
nie jest spełniony, to jest on uważany za fałszywy. Dlatego też, aby uniknąć nicocze- 
kiwanych (niepożądanych) rezultatów, predykat ten należy stosować ze szczególną 
ostrożnością. 


5.6.4. True — predykat, który zawsze skutkuje 


True jest predykatem pomocniczym pozwalającym uprościć zapis niektórych proce- 
dur. Na przykład procedurę: 
rozny(X,X) :- l, fail. 
rozny(_,_). 
można zapisać także w następujący sposób: 
rozny(X,X) :- l,fail; % srednik oznacza operator or 
true. 


5.6.5. Repeat — predykat generujący nawroty 


W przeciwieństwie do odcięcia, które eliminuje nawroty, predykat repeat pozwala 
generować je w tych miejscach, w których normalnie nie występują. Predykat repeat 
nie jest standardowym predykatem Turbo Prologu, jest jednak często stosowany 
w praktyce (powszechnie przyjęto używać nazwy angielskiej). Jego deklaracja ma 
następującą postać: 
PREDICATES 
repeat 
CLAUSES 
repeat. 
repeat :- repeat. 


Wywołanie predykatu repeat umożliwia uzyskanie nieskończonej liczby nawrotów. 
Sposób jego użycia zilustrowano w przykładzie 5.6.51. Zadaniem programu przed- 
stawionego w tym przykładzie jest wyświetlenie zawartości wskazanego pliku, z jed- 
noczesnym numerowaniem wierszy. Jeżeli podczas realizacji procedury czytanieP]iku 
użytkownik popełni błąd, podając nazwę nie istniejącego pliku, to wywołanie podcelu 
otwarciePliku skończy się niepowodzeniem, gdyż zawiedzic predykat existFile. 
W wyniku tego niepowodzenia nastąpi nawrót do predykatu repeat (predykaty readln 
i write są deterministyczne). Dzięki nawrotowi w ramach procedury repeat (wy- 
konanie drugiej klauzuli tej procedury) będzie możliwa ponowna realizacja pozostałej 
części procedury czytanie? liku, poczynając Od write. Operacje te będą powtarzane aż 
do podania poprawnej nazwy pliku. 
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Przykład 5.6.5-1 


DOMAINS 
file=plik 
PREDICATES 
repeat 
czytanieP]iku 
otwarcieP] iku(string) 
wySwietlenieZawartosciPliku(integer) 


GOAL 
czytaniePliku. 
CLAUSES 
czytaniePliku 
:- repeat, 
write("Podaj nazwe pliku: "),  % proc. deterministyczna 
readln(Nazwa), % proc. deterministyczna 


otwarciePliku(Nazwa),% gdy zla nazwa - powrot do "repeat" 
readdevice(plik), 
wyswietlenieZawartosciPliku(1). 
repeat. 
repeat :- repeat. 
otwarcieP]iku(Nazwa) 
:- existFile(Nazwa), |, 
openread(plik,Nazwa). 
otwarciePliku(Nazwa) 
:- write(”Plik o tej nazwie nie istnieje !"), ni, 
fail. 
wyswietlenieZawartosciP1iku(Nr) 
:- not(eof(plik)), 
readln(Wiersz), 
write("wiersz " , Nr , ": ” , Wiersz), nl, 
Nrl = Nr + |, 
wyswietlenieZawartosciPliku(Nr1). 
wyswietlenieZawartosciPliku(_). + 


5.6.6. Free i bound — predykaty sprawdzające czy zmienna jest 
ukonkretniona 


Wykonanie predykatu bound(X) kończy się sukcesem, jeżeli zmienna X jest ukonkret- 
niona, a predykatu free(X) — przeciwnie, gdy zmienna jest nieukonkretniona. Nie- 
ukonkretnienie może też dotyczyć części zmiennej złożonej (strukturalnej). 

Sposób użycia predykatów bound i free przedstawiono w przykładzie 5.6.6-1. 
Za ich pomocą dla procedury matka zbudowano specjalną procedurę pośredniczącą 
Xmatka. W zależności od rodzaju wywołania, podczas realizacji procedury występuje 
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ograniczenie nawrotów (ograniczenie zbędnych poszukiwań) lub też pełne przeszu- 
kanie bazy danych. 


Przykład 5.6.6-1 


PREDICATES 

4 (Matka , Dziecko) 
matka (string, string ) 
Xratka(string, string ) 
CLAUSES 

natka (ewa „agnieszka). 
matka(ewa „andrzej ). 
matka(cecylia,janusz  ). 
matka(cecylia,waldenar). 


Xmatka(Matka,Dziecko) 
:- bound(Dziecko), 
matka(Matka,Dziecko), !. £ uzycie odciecia, gdy zmiensza 
4% Dziecko” jest ukcnkretniona 
Xnatka(Matka,Dziecko) 
:- free(Dziecko), 
matka(Matka,Dziecko). brak odciecia, gdy zmienna 


1-4 
+ 
z"Dziecko” jest nieukonkretniona $ 


Jeżeli wywołamy procedurę z ukonkretnionym drugim parametrem, pisząc np. 

GOAL: Xmatka(Matka,agnieszka) 
to odpowiedź zostanie znaleziona za pomocą pierwszej klauzuli, w której występuje 
odcięcie. Jeżeli natomiast drugi parametr jest nieukonkretniony, np. 

GOAL: Xmatka(ewa,Dziecko) 
to procedura jest realizowana za pomocą drugiej klauzuli, w której odcięcie nie 
występuje. Oznacza to, że zostaną znalezione wszystkie rozwiązania, tj. 


Dziecko=agnieszka 
Dziecko=andrzej 


Uwaga 


Procedura Xmatka została zbudowana z wykorzystaniem odcięcia oraz predykatów 
bound i free związanych ze sterowaniem. Dlatego też analizując jej treść można po- 
sługiwać się jedynie interpretacją imperatywną, a nie deklaratywną. W odniesieniu do 
wywołania tej procedury można już natomiast stosować interpretację deklaratywną. 


A oto inne użycie predykatu bound. Jak wiemy, w opcracji dodawania (np. 
Z=X+Y), obydwie zmienne występujące po prawej stronie równości muszą być ukon- 
kretnione. W przykładzie podano procedurę dodawania, którą możemy wywołać 
z jednym (dowolnym) nieukonkretnionym parametrem (X,Y lub Z). 
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Przykład 5.6.6-2 
PREDICATES 
dodaj (integer, integer, integer) 
CLAUSES 
dodaj(X,Y,Z) :- bound(X), bound(Y), Z=X+Y. 
dodaj(X,Y,Z) :- bound(X), bound(Z), Y=Z-X. 
dodaj(X,Y,Z) :- bound((), bound(Z), X=Z-Y. PA 


5.7. Dynamiczne bazy danych 


Przez bazę danych programu rozumiemy zbiór wszystkich faktów oraz reguł wystę- 

pujących w programie. Bardzo ważną właściwością Prologu jest możliwość dokony- 

wania zmian w bazie danych, tzn. usuwania istniejących klauzul lub dołączania no- 

wych — już w trakcie działania programu. W Turbo Prologu możliwość ta jest niestety 

ograniczona wyłącznie do faktów. Predykaty, do których te fakty należą, muszą być 

zadeklarowane w specjalnej sekcji programn o nazwie DATABASE (poza tym predykaty 

te wykorzystuje się identycznie, jak te, które są deklarowane w sekcji PREDICATES). 

Poniżej wymieniono najważniejsze predykaty standardowe Turbo Prologu 

związane z operacjami na dynamicznych bazach danych: 

asserta(F) — dołączanie do bazy danych faktu F, jako pierwszej klauzuli danej proce- 
dury, 

assertz(F) — dołączanie do bazy danych faktu F, jako ostatniej klauzuli danej proce- 
dury, 

assert(F) — działanie identyczne jak assertz(F), 

retract(F) — usunięcie z bazy danych pierwszego faktu, który został uzgodniony 
z faktem F, 

retractAl1(F) — usunięcie z bazy danych wszystkich faktów, które dają się uzgodnić 
z faktem F, 

consu]t(nazwaPliku) — wprowadzenie do bazy danych klauzul zapisanych w pliku 
tekstowym o podanej nazwie, 

save(nazwaP1iku) — zapisanie zawartości bazy danych w pliku tekstowym. 


W dalszej części terminu baza danych będziemy używali także w węższym 
sensie, do. określenia konkretnej procedury zadeklarowanej w sekcji DATABASE. W tym 
znaczeniu np. termin „baza danych alfa” będzie oznaczał procedurę a1fa należącą do 
dynamicznej bazy danych programu, tzn. zadeklarowaną w sekcji DATABASE. 


Przykład 5.7—1 


DOMAINS 
imie=string 
wiek=real 
lista=real* 
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DATABASE 
osoba(imie,wiek) 
PREDICATES 
wykonanieProgramu 
opcja(integer) 
wySwiet! 
sredniWiek 
suma(lista,wiek, integer) 
GOAL 
wykonanieProgramu. 
CLAUSES 
wykonanieProgramu 
:- write("1 - wyswietlenie biezacego stanu bazy danych"),nl, 
write("2 — dopisanie nowej osoby") nl, 
write("3 - usuniecie osoby"),n1l, 
write(”4 - obliczenie sredniego wieku"),nl, 
write("5 - uzupelnienie bazy o dane zapisane w pliku”),nl, 
write("6 - zapisanie bazy w pliku"),nl, 
write("Esc - koniec pracy") ,nl,nl, 
write("PODAJ OPCJE: "), 
readint(I), 
opcja(1), 
wykonanieProgramu. 
wykonanieProgranu. 


— wySwietl. 

- write("Podaj imie: "), readln(Imie), 
write("”Podaj wiek: "), readint(Wiek) „nl, 
assert(osoba(Imie,Wiek)). 

opcja(3) :- write("Podaj imie usuwanej osoby: "), readln(Imie), 

retract(osoba(lImie,_)),l ; 
write("Brak takiego elementu"). 

opcja(4) :- sredniWiek. 

opcja(5) :- write("Podaj nazwe pliku: "), readln(Nazwa), 

existfile(Nazwa),l, 

consult(Nazwa) ; 

write("Brak pliku o podanej nazwie"). 
opcja(6) :- write("Podaj nazwe pliku: "),readln(Nazwa), 


opcja(1) 
opcja(2) 


save(Nazwa). 
opcja(_) :- write("Zly numer opcji"). 
Y nnmeenenonnnnonnennanonncnnonan anno aN NOO cNNN NGN 00 
wyswietl :- write("ELEMENTY BAZY: "),nl, 

osoba(lImie,Wiek), 


write(Imie, " ”" , Wiek), nl, fail. 
wyswietl :- nl. 
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sredniWiek :- findall (Wiek, osoba(_,Wiek), Lista), 
suma(Lista, Suma, LiczbaOsob), 
SredniWiek=Suma/LiczbaOsob, 
write("Sredni wiek: ", SŚredniWiek),ni,nl. 

% nna a A A DAE MMA 


suma([],0,0). 
suma([G|0g], Suma, N) :- suma(0g,S1,N1), 
Suma=G+S1, 
N=N1+1. 
% z aaa z m nA 
osoba(andrzej , 25). 
osoba(agnieszka, 5). 
osoba (ewa , 30). 2 


Za pomocą opcji 2, 3 lub 5 można dokonać zmian w bazie danych osoba (trzy klauzule 
procedury osoba zadeklarowane w samym programie tworzą początkowy stan tej bazy 
i mogą być także usuwane). Dla opcji 4 dynamiczny sposób deklarowania bazy danych 
osoba nie ma znaczenia — średni wiek jest wyliczany tak samo, jak w przykładzie 
5.6.2-1. Program kończy swoje działanie po wprowadzeniu z klawiatury znaku nie 
będącego cyfrą. 

W kolejnym przykładzie przedstawiono sposób wykorzystania dynamicznych 
baz danych jako pamięci roboczej, przeznaczonej do przechowywania wyników po- 
średnich. W tym przypadku istnieje pewna analogia do użycia zmiennych w kla- 
sycznych językach programowania (zawartość baz danych, podobnie jak wartości 
zmiennych w językach kłasycznych, można bowiem zmieniać wielokrotnie). 


Przykład 5.7—2 
DATABASE 
skladnik(integer) 
sumaCzesciowa(integer) 


PREDICATES 
obliczSume0d_1 Do N(integer,integer) 
sumuj0d_1_Do_N 
dodajKolejnaLiczbe(integer) 


CLAUSES 
obliczSume0d_1_Do_N(N,Suma) 
:- asserta(skladnik(N)), 
asserta(sumaCzesciowa(0)), 
sumujOd_1_Do_N, 
sumaCzesciowa(Suma), % odczytanie ostatecznego wyniku 
retractAll(_). % usuniecie baz (zwolnienie pamieci) 
sumuj0d_1_Do_N 
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:- retract(skladnik(X)), % usuwa fakt z bazy "skladnik" i 
4% ukonkretnia X 
dodajKolejnaLiczbe(X), 
X1=X-1, 
asserta(skladnik(X1)), 
X1=0. % gdy X1<>0 - nawrot do retract 
dodajKolejnaLiczbe(X) 
:- retract(sumaCzesciowa(S)), I, 
$1=S+X, 
asserta(sumaCzesciowa(S1)). 


Należy zwrócić uwagę, że w programie tym nie korzysta się z rekurencji, lecz 
jedynie z nawracania (por. p. 5.8). Nawroty są wykonywane podczas realizacji proce- 
dury sumuj0d_1_Do_N we wzystkich tych przypadkach, w których wartość zmiennej X1 
jest różna od zera. Ponieważ operacje dodajkolejnaLiczbe(X), X1=X-1 oraz asser- 
ta(skladnik(X1)) są deterministyczne, wobec tego nawroty są wykonywane do operacji 
retract(skladnik(X)). 

W razie niepowodzenia wykonania danej klauzuli wszystkie zmiany dyna- 
micznych baz danych, które zostały już dokonane w trakcie realizacji tej klauzuli, 
pozostają aktualne. Fakt ten jest bardzo często wykorzystywany w programach operu- 
jących dynamicznymi bazami danych (porównaj procedurę sumujOd_1_Do_N w przy- 
kładzie 5.72). 

W przykładzie 5.7—3 przedstawiono program, w którym dynamiczna baza 
danych jest wykorzystywana do tworzenia złożonej struktury danych opisującej obwód 
elektryczny zbudowany z pewnej liczby oporników połączonych ze sobą w sposób 
równoległy lub szeregowy. Program ten stanowi rozwinięcie programu podanego 
w przykładzie 4.3-1, w którym strukturę układu podawano bezpośrednio w pytaniu 

(było to bardzo niewygodne). 

Działanie programu omówimy posługując się przykładem obwodu podanym 
na rysunku 5.7-1. Aby wprowadzić dane dotyczące obwodu, użytkownik podaje naj- 
pierw numery wszystkich oporników, wartości ich rezystancji oraz numery węzłów, do 
których są one dołączone, a następnie — numery węzłów, między którymi ma być 
obliczona rezystancja zastępcza całego obwodu (węzły te będą nazywane zaciskami 
układu). Operacje te realizuje część programu o nazwie wprowadzenie danych. 


R1=100 (Q R2=200 (2 


R3=300 Q 


Rys. 5.7--1. Przykład obwodu (zaznaczono numery i wartości rezystancji poszczególnych oporników oraz 
numery węzłów) 
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W programie używa się kilku dynamicznych baz danych. Aby je specjalnie 
wyróżnić przyjęto, że ich nazwy będą zaczynały się od znaków db. Po wprowadzeniu 
danych reprezentujących obwód podany na rys. 5.7-1 stan poszczególnych baz będzie 
następujący: 


db_strukturaUkladu (opornik(1), 1, 2) 
db_strukturaUkladu (opornik(2), 2, 3) 
db_strukturaUkladu (opornik(3), 1, 3) 
db_wartoscOpornosci (1, 100) 

db wartoscOpornosci (2, 200) 

db wartoscOpornosci (3, 300) 
db_licznoscHezla (1, 2) 
db_licznoscWezla (2, 2) 
db_licznoscwezla (3, 2) 

db _ zaciskUkladu (1) 

db_zaciskUkladu (2) 


Drugim i trzecim parametrem bazy db_strukturaUkladu są numery węzłów, w których 
jest dołączony dany opornik. Numery są podane w sposób uporządkowany (pro- 
cedura ustawKolejnosc), co ułatwia dalszą analizę danych. Parametrami bazy 
db_licznoscHezla są: numer węzła i liczba oporników zaczepionych w tym węźle. 
Zadaniem części programu o nazwie tworzenie opisu ukladu jest takie przekształcenie 
bazy danych db_strukturaUkladu, aby cały modelowany układ był opisany za pomocą 
jednej klauzuli, mającej odpowienio złożony pierwszy parametr. W omówionym przy- 
kładzie najpierw są usuwane dwie pierwsze klauzule bazy db _strukturalkładu, re- 
prezentujące oporniki 1 i 2, połączone szeregowo. W ich miejsce wprowadza się do 
bazy jedną klauzulę opisującą to połączenie szeregowe, zaczepione w węzłach 1i3. Po 
tej operacji stan bazy jest następujący: 


db_strukturaUkladu (polaczenieSzeregowe(opornik(1) ,opornik(2)), 
1 s 3) 

db_strukturaUkladu (opornik(3), 
1, 3) 


Ponieważ połączenie szeregowe, występujące w pierwszej kłauzuli i opornik wystę- 
pujący w klauzuli drugiej są połączone ze sobą równolegle (zaczepione w węzłach 1 
i 3), więc obydwie klauzule są usuwane, a w ich miejsce jest wpisywana jedna repre- 
zentująca cały układ: 


db strukturaUkladu(polaczenieRownolegle(polaczenieSzeregowe(opornik(1), 
- opornik(2)), 
opornik(3)), 
1, 3) 


Cały proces tworzenia struktury polega na kolejnym wyszukiwaniu połączeń szere- 
gowych i równoległych podukładów zapisanych w bazie danych db_strukturaUkladu 
i na odpowiednim dokonywaniu zmian w tej bazie. Przed dokonaniem połączenia 
szeregowego następuje sprawdzenie, czy węzeł łączący rozpatrywane podukłady nie 
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jest połączony jeszcze z innym podukładem, lub czy nie jest zaciskiem całego układu, 
gdyż wtedy dokonanie połączenia jest niemożliwe (procedura sprawdzCharakterWez1a). 
Zmiany są dokonywane także w pomocniczej bazie danych db licznoscwezla — po 
wyznaczeniu rezystancji zastępczej połączenia równoległego liczność odpowiednich 
dwóch węzłów zmniejsza się o jeden (procedura zmiejszLicznoscWez1a). Cały proces 
tworzenia struktury kończy się wówczas, gdy w bazie db strukturaUkladu pozostaje 
tylko jedna klauzula (procedura strukturaGotowa). 

Po utworzeniu odpowiedniej struktury danych następuje oblicznie rczys- 
tancji zastępczej całego układu (część programu o nazwie oblicznie rezystancji 
zastepczej jest bardzo podobna do programu podanego w przykładzie 4.3—1). 


Przykład 5.7-3 


+++tt+++t++t+tttt+++++++++ DZIEDZINY WYKORZYSTYWANE W PROGRAMIE+++++++++++++++trr+t+++ 
DOMAINS 
rezystancja = real 
nr, liczba = integer 
uklad polaczenieRownolegle(uklad,uklad); 
polaczenieSzeregowe(uklad,uklad) ; 
opornik(nr) 


st+++++++++++++++++++++++++++++++++ BAZY DANYCH +++++++++++++++tt+t+t++t++++łttłt++t++ 
DATABASE 
db strukturaUkladu(uklad,nr,nr) % uklad oraz numery wezlow, w ktorych jest on 
% zaczepiony (wezly w kolejnosci rosnacej) 
db wartoscOpornika(nr,rezystancja) % rezystancja opornika o podanym numerze 
db_zaciskUkladu(nr) % numer wezla stanowiacego zacisk ukladu 
db_licznoscHezla(nr,liczba) % numer wezla oraz liczba podukladow w nim 
% zaczepionych 


fana ann MMM WPROWADZENIE DANYCH -——————————————m—mmnnmmmnmmmam mmm mm 
PREDICATES 

wprowadzenieDanych % wprowadzenie opisu ukladu 

ustawkolejnosc(nr,nr,nr,nr) % uszeregowanie numerow wezlow w kolejnosci rosnacej 
dopiszKoncowke(nr) % liczba koncowek zwiazanych z okreslonym wezlem 
CLAUSES 

wprowadzenieDanych 


:- write("Podaj numer opornika: "), readint(N), 
write("Podaj jego wartosc[om]: "), readreal(W), 
write("Podaj numery wezlow :ln"), readint(A), readint(B), nl, |, 
ustawkKolejnosc(A,B,A1,B1), 
assertz(db_strukturaUk]ladu(opornik(N),A1,B1)), 
assertz(db wartoscOpornika(N,W)), 
dopiszKoncowke(A), dopiszKoncowke(B), 
wprowadzenieDanych. 
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wprowadzenieDanych 
:- write("Podaj zaciski ukladu:ln"), readint(Z1), readint(Z2), nl, 
assertz(db zaciskUkladu(Z1)), assertz(db zaciskUkladu(Z2)). 


ustawkolejnosc(A,B,A,B) if A<B, !. 
ustawkolejnosc(A,B,B,A). 


dopiszKoncowke(X) if retract(db licznoscWezla(X,Liczba)), !, 
Liczbal=lLiczba+l, 
asserta(db_licznoscHezla(X,Liczbal)). 
dopiszKoncowke(X) if asserta(db licznoscHezla(X,1)). % jesli wezel wystepu- 
% je po raz pierwszy 


han NN 000 TWORZENIE OPISU UKŁADU ————————————m mmm m 
PREDICATES 
tworzStrukture % tworzenie opisu ukladu w postaci struktury 
% rekurencyjnej 
strukturaGotowa % Sprawdzenie, czy wszystkie elementy ukladu 
% zostaly polaczone w jedna strukture 
laczRownolegie % laczenie rownolegle podukladow 
laczSzeregowo % laczenie szeregowe podukladow 


tenSamUklad(uklad,uklad) % sprawdzenie, czy obydwa parametry Sa tym samym 
% podukladem 

usunUklad(uklad,nr,nr) % usuniecie z bazy laczonych podukladow 

zmniejszLicznoscHezla(nr) % zmniejszenie liczby koncowek zwiazanych z danym 
% wezlem 

SprawdzCharakterHezla(nr) % sprawdzenie, czy z wezlem Sa zwiazane tylko dwie 
% koncowki i czy nie jest on zaciskiem ukladu 


CLAUSES 

tworzStrukture if strukturaGotowa, l. 
tworzStrukture if laczRownolegle. 
tworzStrukture if laczSzeregowo. 
tworzStrukture if tworzStrukture. 


strukturaGotowa if db_strukturaUkladu(U1,_,_), 
db _strukturaUkladu(U2,_,_), 
not(tenSamUklad(U1,U2)), !, fail. 
strukturaGotowa. 


laczRownolegle if db _strukturaUkladu(U1,A,B), 
db strukturaUkladu(U2 A,B), 
not (tenSamUklad(U1,U2)), 
usunUklad(U1,A,B), usunUklad(U2,A,B), 
asserta(db_strukturaUkladu(polaczenieRownolegle(U1,U2),A,B)), 
zmniejszLicznoscHezla(A), zmniejszLicznoscezla(B), 
fail. 
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laczSzeregowo if db strukturaUkladu(U1,A,B), 
db_strukturaUkladu(U2,B,C), 
sprawdzCharakterwezla(B), 
usunUklad(U1,A,B), usunUklad(U2,B,C), 
asserta(db_strukturaUkladu(polaczenieSzeregowe(U1,U2),A,C)), 
fail. 


laczSzeregowo if db_strukturalkladu(U1,A,B), 
db_strukturaUkladu(U2,C,B), 
not(tenSamuklad(U1,U2)), 
sprawdzCharakterWezla(B), 
usunUklad(U1,A,B), usunUklad(U2,C,B), 
ustawkolejnosc(A,C,A1,C1), 
asserta(db_strukturaUkladu(polaczenieSzeregowe(U1,U2),A1,C1)), 
fail. 


tenSamUklad(U,U). 
usunUklad(U,A,B) if retract(db_strukturaUkladu(U,A,B)),1. 


zmniejszLicznoscWezla(Nr) if retract(db licznoscHezla(Nr,Liczba)), !, 
Liczbal=sLiczba-l, 
asserta(db_licznoscwezla(Nr,Liczbal)). 


sprawdzCharakterwezla(Nr) if db licznoscWezla(Nr,2), 
not(db_zaciskUkladu(Nr)), |. 


r ZZEENZZNZZNEENE OBLICZENIE REZYSTANCJI ZASTEPCZEJ —————n—momnonnonn nnn 


PREDICATES 
obliczRezystancje 
rezystancjaZastepcza(uklad,rezystancja) 


CLAUSES 
ob] iczRezystancje 
:- db strukturaUkladu(Uklad,_, _), 
rezystancjazastepcza(Uklad,Rezystancja), 
write("Rezystancja ukladu = ",Rezystancja). 


rezystancjaZastepcza(polaczenieRownolegle(Ukladl ,Uklad2) ,Rezystancja) 
:- |, rezystancjaZastepcza(Ukladl ,Rezystancjal), 
rezystancjazastepcza(Uklad2 „Rezystancja? 
Rezystancja=1/(1/Rezystancjal+1/Rezystancja2). 
rezystancjaZastepcza(polaczenieSzeregowe(Uk]adl ,Uklad2) ,Rezystancja) 
:- |, rezystancjaZastepcza(Ukladl ,Rezystancjal), 
rezystancjaZastepcza(Uklad2 „Rezystancja? 
Rezystancja=Rezystancjal+Rezystancja2). 


rezystancjaZastepcza(oporni (Nr) ,Rezystancja) 
:- db wartoscOpornika(Nr,Rezystancja). 
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pezuazzc=s=c================== PROGRAM GLOWNY ========================ss== 

GOAL 

wprowadzenieDanych, % wprowadzenie opisu ukladu 

tworzStrukture % tworzenie opisu ukladu w postaci struktury rekurencyjnej 
obliczRezystancje.  % obliczenie rezystancji zastepczej ukladu + 


Poszczególne parametry klauzul tworzących dynamiczną bazę danych mogą 
należeć do dowolnie złożonej dziedziny — zgodnie z odpowiednimi deklaracjami 
w sekcjach DOMAINS i DATABASE. Na przykład pierwszy parametr bazy db_struktura- 
Ukladu należy do dziedz* . uklad, zdefiniowanej za pomocą rekurencji i alternatywy. 
W szczególności mog” _ »yć także dziedziny listowe. 

Predykaty, k' mają być zadeklarowane jako dynamiczne bazy danych, 
można podzielić na „ .py i każdą z tych grup zadeklarować w oddzielnej sekcji 
DATABASE. Grupom tym można ewentualnie nadać pewne nazwy. Do składowania 
w pliku grupy baz danych o określonej nazwie służą dwuargumentowe wersje pre- 
dykatów standardowych consult i save (por. p. D.2.9); jednoargumentowe wersje 
tych predykatów mogą operować tylko tymi grupami, którym nie nadano nazwy. 
Instrukcja kasowania faktów z nazwanej grupy może odnosić się równocześnie do 
wszystkich predykatów tej grupy. W tym celu stosuje się predykaty standardowe 
retract 1 retractAl] w wersjach dwuargumentowych. Za pomocą jednoargumen- 
towych wersji tych predykatów można usuwać fakty z poszczególnych predykatów 
dowolnej (nazwanej lub nie nazwanej) grupy. 
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Kolejność podcelów i kolejność klauzul 


Ustalając kolejność podcelów w klauzuli i kolejność klauzul w procedurze, należy 
wziąć pod uwagę możliwość wystąpienia nieskończonej rekurencji, tak jak w progra- 
mie z przykładu 5.1--2. 

Ogólna heurystyczna zasada brzmi następująco: „należy próbować wykonać 
najpierw rzeczy najprostsze”. We wspomnianym programie prostszą rzeczą, prowa- 
dzącą natychmiast do ukonkretnienia zmiennych, jest wywołanie podcelu jestJed- 
nymZRodzi cow, a nie podcelu jestPrzodkiem. Podobna uwaga dotyczy kolejności klauzul 
w procedurze jestPrzodkiem — prostsza jest oczywiście klauzula nierekurencyjna, dla- 
tego też należy umieścić ją jako pierwszą. Zgodnie z tymi uwagami jest zbudowany 
program z przykładu 5.1—1. 


Rekurencja 


W Turbo Prologu automatycznie jest optymalizowana tzw. rekurencja prawostronna 
lub inaczej rckurencja końcowa. Jej użycie nie wpływa na zwiększenie zajętości pa- 
mięci. Rekurencja prawostronna występuje wówczas, gdy procedura zawiera tylko 


106 5. Sterowanie 


jedną klauzulę zbudowaną w sposób rekurencyjny oraz wywołanie rckurencji jest 
ostatnim -podcelem klauzuli, a wszystkie poprzednie podcele są deterministyczne 
(w szczególności jeśli wywołanie rckurencyjne jest poprzedzone odcięciem). 

Wiele procedur rekurencyjnych można dość łatwo przekształcić do postaci 
rekurencji prawostronnej. Ilustruje to przykład 5.8—1, w którym dokonano takiego 
przekształcenia, wprowadzając do procedury sumującej dodatkowy paramctr (proce- 
dura _dodajKolejnaLiczbe — w drugiej części programu). 


Przykład 5.8—1 


PREDICATES 
obliczSume0d_1_Do_N 
dodajKolejnaLiczbe(integer,integer) 


CLAUSES 
obliczSume0d_1_Do_N 
:- write("Podaj granice sumowania”),readint(Granica), 
dodajKolejnaLiczbe(Granica, Suma), 
write("Suma=", Suma). 
dodajKolejnaLiczbe(X, Suma) 
:- X>0, |, 
X1=X-1, 
dodajKolejnaLiczbe(X1 ,Sumal), 
Suma=Suma1+X. 


dodajKolejnaLiczbe(_,0). 


PREDICATES 
_obliczSume0d_1_Do_N 
_dodajKolejnaLiczbe(integer,integer, integer) 


CLAUSES 
_obliczSume0d_1_Do_N 
:- write("Podaj granice sumowania”),readint(Granica), 
_dodajkolejnaLiczbe(Granica,0, Suma), 
write("Suma=",Suma). 
_dodajKolejnaLiczbe(X, SumaAkt , Suma) 
:- X>0, !, 
X1=X-1, 
SumaAkt1=SumaAkt+X, 
_dodajkKolejnaLiczbe(X1, SumaAkt1,Suma). 
_dodajkolejnaLiczbe(_,Suma, Suma). (2 


Zadanie to można zrealizować także bez zbędnego zajmowania pamięci — za pomocą 
dynamicznych baz danych (por. przykład 5.7—2). 
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Często ten sam problem można rozwiązać stosując albo rekurencję, albo 
nawracanie. W przeciwieństwie do rekurencji, nawracanie nie powoduje rezerwowa- 
nia pamięci niczbędnej do przechowywania kolejnych, rekurencyjnych wcieleń zmien- 
nych. Biorąc to pod uwagę, wtedy, kiedy istotne jest efektywne wykorzystanie pamięci, 
należy stosować mechanizm nawracania. 


6. < Przykład realizacji prostego translatora 


6.1. Wprowadzenie 


W rozdziale tym przedstawimy sposób zastosowania Turbo Prologu do budowy pros- 
tych translatorów [30]. Ogólne zasady translacji omówimy na przykładzie translatora 
języka źródłowego, będącego pewnym podzbiorem języka Pascal, na język wynikowy 
będący podzbiorem języka asemblera mikroprocesora 8086. Otrzymywane programy 
wynikowe będą miały postać akceptowaną przez makroasembler MASM, co oznacza, 
że będzie można je uruchomić w komputerze IBM PC. 

Zastosowanie Prologu do budowy translatorów jest wyjątkowo proste, gdyz 
specyfikacja translatora jest prawie równoważna z jego implementacją. Podstawowe 
procedury tworzące translator są zbiorem klauzul, z których każda określa zasadę 
tłumaczenia określonej struktury języka źródłowego na język wynikowy. Ma to wiele 
zalet, m.in.: 


— procedury tłumaczące mają charakter samodokumentujący się i tym samym są 
łatwe do zrozumienia; 


— poprawność implementacji jest wyraźnie widoczna, ponieważ poszczególne klau- 
zule odpowiadają poszczególnym elementom specyfikacji translatora; prawdopo- 
dobieństwo popełnienia błędu w tworzeniu kodu wynikowego jest więc o wiele 
mniejsze niż w przypadku użycia innych języków programowania (jeżeli zasady 
translacji są poprawne, to można być pewnym, że implementacja translatora nie 
zawiera błędu); 

— w przypadku konieczności rozszerzenia języka źródłowego łatwo można wpro- 
wadzić modyfikację translatora, ponieważ każdą zasadę tłumaczenia opisuje od- 
dzielna klauzula. 


Sposób realizacji niektórych bloków, np. analizy leksykalnej i syntaktycznej może być 
także interesujący w przypadku innych zastosowań niż prezentowana tu budowa 
translatorów. 

Pełny program translatora przedstawiono w p. 6.6. 
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6.2.  Podzbiór Pascala jako przykład języka źródłowego 


Budowę translatora omówimy na przykładzie, w którym pewien podzbiór Pascala jest 
tłumaczony na podzbiór języka asemblera mikroprocesora 8086. Odpowiednie listy 
instrukcji przedstawiono w tablicach 6.2-1 i 6.2-2. 


Tabl. 6.2-1. Instrukcje języka śródłowego 


read Czytanie z klawiatury read x 
write Wyświetlenie wartości wyrażenia | write 3*6 


if ... then ... Instrukcja warunkowa "jeśli" if x=3 then y:=5 
else ... else y:=6 


while ... do Instrukcja pętli dopóki" while y>5 do 


y:=y-l 
:= (przypisanie) Przypisanie wartości zmiennej x:=3+5*4 
begin ... end Instrukcja warunkowa zawie- begin 
rająca kilka innych instrukcji read a; 
b:=a+4 
end 


Tabl. 6.2-2. Rozkazy asemblera 8086 występujące w procesie translacji 


Przesłanie bajtu lub słowa 
Przesłanie adresu efektywnego 
Przesłanie na stos 

Przesłanie ze stosu 

Wywołanie podprogramu 
Dodawanie 

Odejmowanie 

Mnożenie bez znaku 


Dzielenie bez znaku 


Skok, gdy równe zero 

Skok, gdy nie równe zero 
Skok, gdy mniejsze 

Skok, gdy większe 

Skok, gdy większe lub równe 
Skok, gdy mniejsze lub równe 
Instrukcja pusta (nic nie rób) 


Dla języka źródłowego przyjęto dodatkowo następujące ograniczenia w sto- 
sunku do Pascala : 
a) wszystkie zmienne są typu całkowitego o wartościach z przedziału od 0 do 255, 
b) po ostatniej instrukcji prostej wchodzącej w skład instrukcji złożonej begin ... end 
nie stosuje się średnika, 
c) argumenty instrukcji zead i write nie są ujęte w nawiasy, 
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d) dopuszczalne jest jedynie stosowanie następujących symboli specjalnych języka 
Pascal: 


<symbol_specjalny> := +|-|*|/|=|>|<|<>|<=| 
>= |:=|;|.| słowo_kluczowe 
<słowo_kluczowe> ::= begin | do | else | end | if | then | 


6.3. Podstawowe bloki translatora 


Cały proces translacji możemy podzielić na cztery następujące bloki funkcjonalne: 
analizę leksykalną, analizę syntaktyczną, asemblowanie i blok wyjściowy (rys. 6.31). 


Tekst źródłowy programu 
Lista symboli 
Zakodowana lista instrukcji 


Zakodowana lista rozkazów 


Rys. 6.3-1. Schemat 
Program w języku asemblera procesu translacji 


Zadaniem pierwszego bloku jest przekształcenie tekstu źródłowego pro- 
gramu na odpowiadającą mu listę, której elementami są symbole specjalne jezyka 
źródłowego i nazwy zmiennych występujących w programie. Listę tę będziemy nazy- 
wali dalej listą symboli, a jej elementy — symbolami podstawowymi języka. 

Celem analizy syntaktycznej jest utworzenie zakodowancej listy instrukcji, 
przez wyodrębnienie z listy symboli poszczególnych instrukcji języka źródłowego 
i przekształcenie ich do postaci umożliwiającej dalszą analizę. 

Zadaniem bloku asemblowania jest wygenerowanie — na podstawie zakodo- 
wanej listy instrukcji — listy rozkazów asemblera oraz utworzenie słownika zawie- 
rającego nazwy zmiennych występująych w programie. 

Blok wyjściowy zapisuje w pliku tekstowym zakodowaną listę rozkazów, do- 
łączając do niej nagłówck zawierający deklaracje poszczególnych segmentów oraz 
deklaracje zmiennych używanych w programie (do tego celu wykorzystuje się słownik 
utworzony w bloku asemblowania). 

Na przykład translacja instrukcji przypisania przebiega następująco: 

e Program źródłowy 
alfa: =0; 
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e Rezultat otrzymany po analizie leksykalnej (lista symboli) 
["alfa" , ":=" , "0" , ";”) 

e Rezultat otrzymany po analizie syntaktycznej (zakodowana lista instrukcji) 
[przypisanie(zmienna("alfa"),stała("0"))] 

e Rezultat otrzymany po asemblowaniu (zakodowana lista rozkazów) 
[asembler("MOV AL,0"”) , asembler("MOV alfa,AL")] 

© Wynik translacji otrzymany na wyjściu 


MOV AL,O 
MOV alfa,AL 


6.4. Realizacja komputerowa 


6.4.1. Analiza leksykalna 


Analiza leksykalna polega na wyodrębnieniu z tekstu źródłowego symboli specjałnych 
oraz nazw zmiennych występujących w tekście. Zastosowanie Prologu do realizacji 
tego bloku nie jest specjalnie interesujące, ponieważ należy wykonać w nim pewne 
operacje wejścia-wyjścia, które realizuje się podobnie w większości języków progra- 
mowania. Poniżej podano główną procedurę sterującą procesem analizy leksykalnej: 
analizaLeks(ListaSymboli) 
:- write("Podaj nazwe pliku z danymi:in"), 

readln(NazwaP1), 

file_str(NazwaP1,Ciag), 

podzialTekstu(Ciag,ListaSymboli),!. 


Na wstępie zawartość pliku z tekstem źródłowym jest przekształcana na ciąg znaków 
za pomocą predykatu file_str(NazwaP1l,Ciag). Następnie ciąg ten zostaje poddany 
właściwej analizie leksykalnej. Do tego celu służy procedura podzialTekstu(Ciag, 
ListaSymbo1i), zbudowana z czterech następujących klauzul: 


podzialTekstu(Ciag,Reszta) 
:- frontChar(Ciag,' ',ResztaCiagu),!, 
podzialTekstu(ResztaCiagu,Reszta). 


podzialTekstu(Ciag, [DwaZnaki |Reszta]) 
:- frontStr(2,Ciag,DwaZnaki,ResztaCiagu), 
znak(DwaZnaki),l, 
podzialTekstu(ResztaCiagu,Reszta). 


podzialTekstu(Ciag, (Znak|Reszta]) 
:- frontToken(Ciag,Znak,ResztaCiagu),|, 
podzialTekstu(ResztaCiagu,Reszta). 


podzialTekstu(_,[]). 
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znak(”:="). 
znak(”<="). 
znak("<>"), 
znak(">="). 


Pierwsza klauzula pomija spacje występujące na początku ciągu, a następnie poddaje 
analizie resztę ciągu. Druga klauzula wyodrębnia z ciągu dwa pierwsze znaki i za 
pomocą wywołania znak(DwaZnaki) sprawdza, czy tworzą one jeden z następujących 
symboli specjalnych: 

<> <= >= = 


Jeśli tak, to znaki te wpisuje się do listy, a następnie poddaje analizie resztę ciągu. 
Trzecia klauzula wyodrębnia z ciągu symbole podstawowe języka, pomijając znaki 
sterujące (np. LF, CR), i wpisuje je do listy. Jeśli wszystkie trzy klauzule zawiodą, to 
za pomocą klauzuli czwartej następuje zakończenie całej analizy leksykalnej. 


6.4.2. Analiza syntaktyczna 


W celu zdefiniowania języka programowania należy precyzyjnie określić jego skła- 
dnię. Reguły składni wykorzystuje się następnie do analizy poprawności programów 
napisanych w tym języku, tzn. do zbadania, czy dany ciąg symboli ma poprawną 
konstrukcję z punktu widzenia reguł obowiązujących w tym języku. Składnię języka 
określa się za pomocą odpowiednich formalizmów, np. notacji Backusa-Naura 
(w skrócie BNF). Bardzo ważną zaletą Prologu jest możliwość bezpośredniego prze- 
kształcenia notacji BNF na odpowiedni zapis prologowy. 
Składnia naszego języka źródłowego w notacji BNF jest następująca: 


<instrukcja>  ::= <nazwa>:= <wyrażenie > | 
read <nazwa > | 
write < wyrażenie > | 
if < warunek > then <instrukcja> else <instrukcja > | 
while < warunek > do < instrukcja > | 
begin < instrukcja > end 


<warunek> _ ::= <wyrażenie> <porównanie> <wyrażenic > 
<wyrażenie>  ::= <wyrażenie> <argument_2> <wyrażenie_1> | 
< wyrażenie _1> 
<wyrażenie_1>::= <wyrażenie 1> <argument_1> <wyrażenie_0> | 
< wyrażenie_0> 


< wyrażenie 0> ::= <nazwa> | <stała> | < wyrażenie > 


<porównanie> ::= > | <|=|<=|>=|<> 
<argument_2> := + |- 
<argument_1> ::= *|/ 
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Składni tej odpowiadają następujące klauzule prologowe: 


instrukcja([Nazwa,”:=" | ListaSym], 
Reszta, 
przypisanie(zmienna(Nazwa) ,Hyr)) 
:- wyrazenie(2, ListaSym, Reszta, Wyr),l. 
instrukcja(["read" „Nazwa|Reszta],Reszta,czytaj(zmienna(Nazwa))). 
instrukcja(["write"|ListaSym], Reszta, pisz(Wyr)) 
:- wyrazenie(2, ListaSym, Reszta, Hyr),!. 


instrukcja([7if"|ListaSym], Reszta, if (Harunek,Then,Else)) 
:- warunek(ListaSym, ["then"|Resztal], Warunek), 
instrukcja(Resztal, ["else"|Reszta2], Then), 
instrukcja(Reszta2, Reszta, Else),!. 
instrukcja(["while"|ListaSym], Reszta, while(Warunek,Do)) 
:- warunek(ListaSym, [”do"|Resztal], Warunek), 
instrukcja(Resztal, Reszta, Do),l. 
instrukcja(["begin"|ListaSym], Reszta, begin(Lista)) 
:- analizaSynt(ListaSym, Resztal, Lista),Reszta=Resztal,!. 


wyrazenie(N, ListaSym, Reszta, Wyr) 
:- N>0O, NI = N-I, 
wyrazenie(N1, ListaSym, Podwyr, Resztawyr), 
resztaWyr(N, Podwyr, Reszta, ResztaWyr, Wyr),!. 
wyrazenie(_, [Wartosc|Reszta], Reszta, stala(Wartosc)) 
:- str_int(Wartosc, _),l. % str_int - p. D.2.8 
wyrazenie(_, [Nazwa|Reszta], Reszta, zmienna(Nazwa)). 


resztaWwyr(N, [Operand|ListaSym], Reszta, Argl, Wyr) 
:- operand(N, Operand),N1 = N-l1, 
wyrazenie(N1, ListaSym, PodWyr, Arg2), 
resztaWyr(N, PodHyr, Reszta, 
wyraze(Argl,Operand,Arg2), Wyr),!. 
resztaWyr(_, Reszta, Reszta, Wyr, Wyr) :- 1. 


operand(2, "+"). operand(2, "-"). 
operand(1, "*"). operand(1, "/"). 


warunek(ListaSym, Reszta, warunek(Argl,Operand,Arg2)) 
:- wyrazenie(2, ListaSym, [Operand|Resztal], Argl), 
porownanie(Operand) ,wyrazenie(2,Resztal,Reszta,Arg2),!. 


porownanie("=") . porownanie(">") . 
porownanie("<") . porownanie("<="). 
porownanie("<>"). porownanie(">="). + 


Jak widać, między notacją BNF a odpowiednim zapisem prologowym istnieje 
znaczne podobieństwo. Dowolny fragment programu zródłowego, rozpoczynający się 
od pewnej instrukcji, jest przetwarzany przez jedną z klauzul — właściwą dla tej 
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instrukcji. Każda z podanych klauzul ma trzy parametry: 
— [Identyfikatorinstrukcji | OgonListySymboli], 

— ResztaListySynboli, 

— ZakodowanaPostaciInstrukcji. 


Pierwszy parametr jest parametrem wejściowym, ukonkretnianym przez listę symboli 
języka źródłowego, która ma być przetwarzana. Głowa tej listy decyduje o wyborze 
odpowiedniej klauzuli. 

Drugi parametr jest parametrem wyjściowym, reprczentującym resztę listy 
symboli (jeszcze nie przetworzoną), powstałą po wyodrębnieniu analizowanej in- 
strukcji z całej listy. 

Trzeci parametr jest najważniejszym parametrem wyjściowym procedury — 
reprezentuje zakodowaną postać instrukcji. Na przykład instrukcję wile zapisaną 
w notacji BNF jako: 

< instrukcja > :: = while < warunek > do <instrukcja > 
przekształca się do postaci: 


instrukcja([”while" |ListaSym], Reszta, while(Harunek,Do)) 
:- warunek(ListaSym, ["do"|Resztal], Warunek), 
instrukcja(Resztal, Reszta, Do), |. 


przy czym while odgrywa rolę identyfikatora instrukcji, a while(Warunek,Do) stanowi 
zakodowaną postać instrukcji while (zmienne Warunek i Do są oczywiście odpowiednio 
ukonkretnione). 


Przeanalizujmy to, posługując się konkretnym przykładem. 


Przykład 6.4.2—1 


Załóżmy, że mamy przekształcić następujący fragment programu napisanego w języku 
źródłowym: 
while alfa >5 do 
alfa: =alfa + 1; 
beta: =8; 


Odpowiada mu następująca lista symboli (pierwszy parametr procedury instrukcja): 

["while” , "alfa" , ">" , "5" , "do" , "alfa" , ":=" , "alfa" , "+", 

5 , ".n , "beta" , n.=" , ng" , +.) 

Identyfikatorem instrukcji jest napis while, dlatego zostaje wybrana (uzgodniona) 
klauzula odpowiedzialna za przetwarzanie tej właśnie instrukcji. 

Resztę symboli (drugi paramctr procedury instrukcja) stanowi końcowa 
część pierwszego parametru — po wyodrębnieniu z niej całej instrukcji while (w przy- 
jętym rozwiązaniu rozpoczyna się on od średnika kończącego instrukcję while): 

[737 „ "beta" , ":=" , "8" , ...] 

Trzeci parametr procedury instrukcja, wyznaczony ostatecznie w wyniku wywołań 
podcelów: 
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warunek(ListaSym, ["do" |Resztal],Warunek), 

instrukcja(Resztal,Reszta,Do),!. 
reprezentuje zakodowaną postać instrukcji while: 


while(warunek(zmienna("alfa") , ">" , stala("5")), 
przypisanie(zmienna("alfa"), wyraze(zmienna("alfa"), 


stala("1")))) 0 


Analizą syntaktyczną steruje następująca procedura: 


analizaSynt(ListaSym, Reszta, [Instrukcja|Resztalns]) 41 
:- instrukcja(ListaSym, ResztaListySym, Instrukcja), 
analizaSynt(ResztaListySym, Reszta, Resztalns),!. 


analizaSynt([";”|ListaSym], Reszta, Instrukcja) 12 
:- analizaSynt(ListaSym, Reszta, Instrukcja),!. 

analizaSynt(["end"|ListaSym], ListaSym, []) :- !. 43 

analizaSynt(ListaSym, ListaSym, []). 44 


W pierwszej klauzuli, korzystając z procedury instrukcja wyodrębnia się i koduje 
pierwszą instrukcję (Instrukcja), zapisaną w liście symboli języka źródłowego (Lista- 
Sym), oraz przekazuje do dalszej analizy resztę listy symboli (ResztaListySym). Tę 
ostatnią listę analizuje się za pomocą rekurencyjnego wywołania procedury analiza- 
Synt. W drugiej klauzula wyodrębnia z listy symboli znak ; będący separatorem 
instrukcji pascalowych. 

Do analizy instrukcji złożonej begin ... end stosuje się klauzulę trzecią; analiza 
syntaktyczna takiej instrukcji kończy się po wyodrębnieniu z listy symboli słowa end. 
Jeśli zawodzą wszystkie trzy opisane klauzule, to analizę kończy klauzula czwarta. 

Oprócz utworzenia zakodowanej listy instrukcji, głównym zadaniem analizy 
syntaktycznej jest sprawdzenie formalnej poprawności danych, tzn. poprawności pro- 
gramu źródłowego. W prezentowanym przykładzie kontrola poprawności kolejnych 
instrukcji przebiega równolegle z ich kodowaniem. Zastosowano przy tym najprostsze 
rozwiązanie. Poszczególne klauzule procedury instrukcja kodują wyłącznie instrukcje 
poprawne. W razie wystąpienia błędu zawodzą wszystkie klauzule tej instrukcji 
i analiza syntaktyczna zostaje zakończona za pomocą czwartej klauzuli procedury 
analizaSynt (do asemblowania jest przekazywana tylko ta część programu źródło- 
wego, która została przeanalizowana wcześniej). 

Biorąc pod uwagę to, że w Turbo Prologu jest możliwe korzystanie we 
własnych programach ze standardowego edytora (tego, którym posługujemy się pi- 
sząc programy — porównaj predykat standardowy edit przedstawiony w dodatku), 
oraz wprowadzając niewielkie zmiany w procedurze analizaSynt, można dość łatwo 
wprowadzić obsługę błędów podobną np. do tej, z którą spotykamy się kompilując 
programy prologowe. (Plik z programem źródłowym powinien być wczytany do edy- 
tora; po wykryciu błędu kursor powinien wskazywać pozycję tego błędu tak, aby 
można było go natychmiast poprawić i powtórzyć proces translacji). 
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6.4.3. Tworzenie kodu pośredniego i asemblowanie 


Opiszemy teraz sposób tworzenia słownika zmiennych występujących w programie 
źródłowym oraz zasadę tworzenia listy rozkazów języka wynikowego wraz z wyli- 


czeniem adresów skoków. Procesem tworzenia listy rozkazów steruje procedura 
tworzASM: 


tworzASM([Instrukcja|Resztalnstr], Kodwyj, N, N2) 

:- zakodowanielnstrukcji(Instrukcja, Kod, N, N1), 
tworzASM(Resztalnstr, ResztaKodu, N1, N2), 
append(Kod, ResztaKodu, Kodwyj), |. 

tworzASM([], [), N, N). 


Podcel zakodowanielnstrukcji(Instrukcja, Kod, N, N1) służy do utworzenia kodu wy- 
nikowego jednej istrukcji pascalowej. Zmienna Instrukcja jest symbolicznym przed- 
stawieniem tej instrukcji; Kod jest listą rozkazów asemblera 8086 odpowiadających tej 
instrukcji; N oznacza liczbę instrukcji if i while występujących przed wywołaniem 
procedury zakodowanielnstrukcji (tzn. tych instrukcji, do których kodowania jest nie- 
zbędne użycie rozkazów skoku); N1 oznacza liczbę instrukcji if i while po wywołaniu 
procedury zakodowanielnstrukcji. 

Po wykonaniu procedury zakodowanielnstrukcji, za pomocą rekurencyjnego 
wywołania procedury tworzASM dalszej analizie jest poddawana reszta listy instrukcji 

Z kolei wywołanie procedury append(Kod,ResztaKodu,Kodwyj) służy do połą- 
czenia listy zawierającej rozkazy asemblera, kodujące daną instrukcję, z listą roz- 
kazów asemblera, które kodują wszystkie następne instrukcje pascalowe. 

Druga klauzula procedury tworzASM jest realizowana wówczas, gdy lista in- 
strukcji jest pusta, i służy do zakończenia procesu kodowania. 

Przekształcenie danej instrukcji pascalowej na listę rozkazów asemblera 8086 
wykonuje procedura zakodowanielnstrukcji. Ze względu na trudności z bezpośrednim 
zakodowaniem instrukcji read i write, do programu wynikowego jest dołączany zestaw 
odpowiednich procedur asemblera, realizujących tę instrukcję. W konsekwencji, 
w programie wynikowym następuje jedynie wywołanie odpowiednich procedur, tzn. 
CALL CZYTAJ i CALL WYPISZ. Procedura CZYTAJ przypisuje zmiennej o adresie zawartym 
na szczycie stosu, wartość liczbową podaną z klawiatury. Procedura WYPISZ wyświetla 
liczbę zawartą w rejestrze AL mikroprocesora. 

Przy kodowaniu wyrażeń przyjęto dwie następujące zasady: 

— wszystkie wyniki pośrednie są przesyłane na stos, 
— kodowanie całego wyrażenia przebiega w ten sposób, że ostateczna wartość licz- 
bowa tego wyrażenia zostaje umieszczona w rejestrze AL. 


Schematy kodowania poszczególnych instrukcji pascalowych na język asemblera 8086 
przedstawiono na rys. 6.4.3-1. Przy kodowaniu etykiet przyjęto, iż są one związane 
z rozkazem asemblera NOP. Na przykład: 


JZ else5 


else5: NOP 
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read <nazwa> nazwa>:=<wyrażenie> 


Zakodowanie 
wyrażenia 


MOV Zmienna, AL 


Oczytanie adresu 
zmiennej 
Przesłanie adresu 
na stos 


CALL CZYTAJ 


if <warunek> then <instrukcja> 
else <instrukcja> 


Zakodowanie warunku 
Skok do etykiety „ gdy 
warunek nie jest spełniony 
Zakodowanie instrukcji 

występujących po then 
Skok do etykiety (endifX) 


Etykieta (elseX) 


Zakodowanie instrukcji 
występujących po else 


Etykieta (endifX) 
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write <wyrażenie> 


Zakodowanie 
wyrażenia 


CALL WYPISZ 


while <warunek> do <instrukcja> 


Etykieta (whileX) 


Zakodowanie warunku 


Skok do etykiety (elseX), gdy 
warunek nie jest spełniony 


Zakodowanie instrukcji 
występujących po do 


Skok do etykiety (whileX) 


Etykieta (elseX) 


Rys. 6.4.3-1. Schematy kodowania poszczególnych instrukcji języka asemblerowego 


Schematom przedstawionym na rys. 6.4.3-1 odpowiada następujący zapis w języku 


Prolog: 


zakodowanielnstrukcji(przypisanie(zmienna(Nazwa) ,Wyrazenie), 


Kodwyni kowy ,N,N) 


:- slownik(Nazwa), 


concat("MOV ”„,Nazwa,Element), 
concat(Element,",AL",Rozkaz), 


% concat - p. D.2.7 


zakodowanieWwyrazenia(Wyrazenie,KodWyrazenia),!, 
append(Kodwyrazenia, [rozkaz(Rozkaz) ],Kodwynikowy). 


zakodowanielnstrukcji (czytaj (zmienna(Nazwa)), 
[rozkaz(Rozkaz),rozkaz("PUSH DX"), 


rozkaz(”CALL CZYTAJ”)],N,N) 
:- [, slownik(Nazwa), concat("LEA DX," ,Nazwa,Rozkaz). 


zakodowanielnstrukcji (pisz(Wyrazenie) ,ListaRozkAsemb,N,N) 
:- zakodowanieWwyrazenia(Wyrazenie,KodHyr),!, 
append(Kodiyr, [rozkaz(”CALL WYPISZ")],ListaRozkAsemb). 


zakodowanielnstrukcji(if_(Harunek,Then,Else) ,Kodwynikowy,N,Nwy) 
:- zakodowanieWarunku(Harunek,Kod,N,N1), 
zakodowanielnstrukcji (Then, Thenkod,N1,N2), 
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zakodowanieinstrukcji(Else,Elsekod,N2,Nwy), |, 

str_int(Znak,N),concat("else",Znak,Etykietal), 

concat("indif",Znak,Etykieta2), 

concat("JMP "„,Etykieta2,Skok), 

append(Kod,Thenkod,Kodwyjl), 

append(Kodwyjl,[rozkaz(Skok),etykieta(Etykietal) |Elsekod], 
Kodwyj2), 

append(Kodwyj2 ,[etykieta(Etykieta2 ) ] ,Kodwynikowy). 


zakodowanielnstrukcji (whi le(Warunek ,Do) „Kodwyni kowy ,N,Nwy) 
:- zakodowanieWarunku(Warunek,Kod,N,N1), 
zakodowanielnstrukcji (Do,DoKod,N1,Nwy),!, 
str_int(Znak,N),concat("else",Znak,Etykietal), 
concat("while"” ,Znak,Etykieta2), 
concat("JMP ",Etykieta2,Skok), 
append([etykieta(Etykieta2) |Kod],DoKod,Kodwyjl), 
append(Kodwyjl,[rozkaz(Skok),etykieta(Etykietal)], 
Kodwynikowy). 


zakodowanielnstrukcji (begin(Listalnstrukcji ) ,Kodwynikowy,N,Nwy) 
:- tworzASM(Listalnstrukcji,Kodwynikowy,N,Nwy) ,!. 


zakodowanieWarunku(warunek(Argl ,Znak,Arg2 ) „KodWarunku,N,Nwy) 
:- zakodowanieWyrazenia(wyraze(Argl,"-",Arg2),Kodwyrazenia), 
jesli(Znak,Jump),!, str_int(Liczba,N), 
concat("else",Liczba,Etykieta) ,Nwy = N + 1, 
concat (Jump,Etykieta,Skok), 


append(KodHyrazenia, [rozkaz (Skok) ] ,Kodwarunku). 


zakodowaniełyrazenia(stala(Wartosc),[rozkaz(Rozkaz)]) 
:- !,concat("MOV AL," ,Wartosc,Rozkaz). 


zakodowaniełyrazenia(zmienna(Nazwa) ,[rozkaz(Rozkaz)]) 
:- |,concat("MOV AL," ,Nazwa,Rozkaz), slownik(Nazwa). 


zakodowanieńłyrazenia(wyraze(Wyrazel,Operand,Wyraze2 ) ,LW3) 

:- zakodowanieWyrazenia(Wyraze2 ,KodHyraze2), 
zakodowaniewyrazenia(Wyrazel,KodWyrazel), 
operacja(Operand,KodOper) ,!, 
append(Kodiyraze2 ,[rozkaz("PUSH AX") |Kodiyrazel],Lwyl), 
append(Lwyl,[rozkaz("”POP BX") |KodOper],LW3). 


jesli("=","JNZ "). jesli("<","JNC "). 
jesli(">","JNA "). jesli("<>","JZ "). 
jesli("<=","JA "). jesli(">=","JC "). 


append([),Lista,Lista). 
append([Glowa|0gon1l],Lista2, [Glowa |O0gon3]) 
:- 1, append(Ogonl,Lista2,0gon3). 
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Slownik(Nazwa) 
:- not(db slownik(Nazwa)),l,assertz(db slownik(Nazwa)). 
slownik(_). 


operacja("+",[rozkaz(”ADD AL,BL")]). 
operacja("-",[rozkaz("SUB AL,BL")]). 
operacja("*",[rozkaz("MOV AH,0"),rozkaz("MUL BL")]). 
operacja(”/",[rozkaz("MOV AH,0”),rozkaz(”DIV BL")]J). 


Zadaniem procedury zakodowanielnstrukcji jest wyznaczenie listy rozkazów 
asemblera realizujących daną instrukcję języka źródłowego (na podstawie przekształ- 
conej postaci instrukcji języka źródłowego). Na przykład klauzula tworząca listę 
rozkazów asemblera na podstawie instrukcji przypisania ma następującą postać: 


zakodowanielnstrukcji (przypisanie(zmienna(Nazwa) ,Wyrazenie), 
Kodwynikowy, N, N) 
:- slownik(Nazwa), 
concat("MOV ", Nazwa, Element), 
concat(Element, "”,AL", Rozkaz), 
zakodowanieWyrazenta(Wyrazenie, KodHyrazenia), 
append(KodWyrazenia, [rozkaz(Rozkaz)], KodWynikowy), !. 


W klauzuli tej są wykonywane następujące operacje: 
- wpisanic nazwy zmiennej do słownika zmiennych, występujących w programie 
źródłowym; 
— utworzenie rozkazu asemblera MOV Nazwa,AL za pomocą dwukrotnego wywołania 
predykatu standartowego concat; 
— zakodowanie wyrażenia Hyrazenie na odpowiadającą mu listę rozkazów asemblera, 
zgodnie z podanym schematem kodowania instrukcji przypisania; 
— połączenie listy rozkazów asemblera, kodującego wyrażenie (KodWyrazenia) z utwo- 
rzonym poprzednio rozkazem MOV Nazwa AL. 
Procedura slownik, służąca do zapamiętania nazw zmiennych występujących 
w programie, ma następującą postać: 
Slownik(Nazwa) 
:- not(db slownik(Nazwa)),!, assertz(db slownik(Nazwa)). 
slownik(_). 
Pierwsza klauzula sprawdza, czy zmienna o danej nazwie nie występowała już wcześ- 
niej w programie, i ewentualnie dołącza ją na koniec odpowiedniej bazy danych 
zawierającej nazwy wszystkich dotychczas użytych zmiennych. Jeśli zmienna ta była 
już używana, to następuje wyjście z procedury slownik za pomocą drugicj klauzuli. 


Uwaga 


Zgodnie z podanymi powyżej schematami kodowania instrukcji, rozkazy asemblera 
8086 kodujące warunki logiczne w procedurze jesli kodują warunek zanegowany, np. 
jesli("=","JNZ ") zamiast oczekiwanego jesli(”=","JZ"). 
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Ze względu na przyjęty zakres wartości, jakie mogą przyjmować zmienne 
występujące w programie (liczby całkowite z przedziału od 0 do 255), do przecho- 
wywania wartości reprezentowanej przez daną zmienną wystarczy użyć jednego 8-bi- 
towego rejestru mikroprocesora. Nie ma ponadto potrzeby stosowania korekcji otrzy- 
manych wyników. Rozkazy mnożenia i dzielenia w mikroprocesorze 8086 są jednak 
wykonywane na rejestrach 16-bitowych. Dlatego też w programie, przed zakodo- 
waniem wyrażenia, w którym występują operacje mnożenia lub dzielenia, zeruje się 
osiem bardziej znaczących bitów rejestru AX (rejestr AH). 


6.4.4. Blok wyjściowy 


Zgodnie z przyjętym założeniami, po przetłumaczeniu programu źródłowego na pro- 
gram wynikowy użytkownik powinien mieć możliwość skompilowania programu wyni- 
kowego. Blok wyjściowy służy do takiego przedstawienia powstałej listy rozkazów 
asemblera 8086, aby można było ją skompilować używając standardowych programów 
MASM i LINK. 


Procesem ostatecznego przygotowania programu wynikowego steruje proce- 
dura wypiszProgram: 


wypiszProgram(Asembler.,Slownik) 
:- write("Podaj nazwe pliku wynikowego :"), readln(Nazwa), 
openYrite(plik,Nazwa), writeDevice(plik), 


write("STACK SEGMENT STACKIn DW 100  DUP(?)Nn"), 
write("STACK ENDS NnDATA SEGMENT Mn"), 
deklaracjaZmiennych, 


write("DATA ENDS lnCODE SEGMENT Nn "), 
write("ASSUME CS:CODE,DS:DATA,SS:STACK ln"), 
write(" INCLUDE TR_PROC.LIB NnSTART: NOP An"), 


wpiszDoPliku(Asembler), 
write("MOV AH,4Ch In "), 
write("INT 21h NnCODE ENDS ln END START Mn"), 


closeFile(plik), writeDevice(screen),l. 
Do istniejącej już listy rozkazów są dołączane dwa bloki: nagłówek zawierający dekla- 
racje poszczególnych segmentów programu oraz blok końcowy umożliwiający powrót 
do systemu operacyjnego po zakończeniu działania programu. 

Przy deklaracji segmentu danych (nagłówek) wykorzystano procedurę dekla- 
racjaZmiennych, której zadaniem jest zadeklarowanie w tym segmencie zmiennych 
występujących w programie źródłowym. 

deklaracjaZmiennych 

:- db slownik(Nazwa) ,write(Nazwa,"”NtDB 1 DUP(O) ln"),fail. 
deklaracjeZmiennych. 
Pierwsza klauzula odczytuje kolejno wszystkie nazwy zmiennych występujące w słow- 
niku db_slownik i deklaruje je w programie wynikowym jako zmienne proste typu byte, 
o wartości początkowej równej zeru (do odczytania wszystkich nazw z bazy danych 
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db_slownik użyto predykatu fail). Druga klauzula służy do opuszczenia procedury po 
zadeklarowaniu wszystkich zmiennych. 

Procedura wpiszDoPliku realizuje właściwe wpisanie w pliku zakodowanej 
listy rozkazów asemblera: 


wpiszDoP] iku([rozkaz(Rozkaz)|ListaRozk]) %1 
:- write(" "„Rozkaz),nl, 
wypisz(ListaRozk),!. 
wpiszDoPliku([etykieta(Etykieta) |ListaRozk]) 42 
:- write(Etykieta,”: NOP |n”), 
wypisz(ListaRozk),l. 
wpiszDoPliku([]) :- 1. 43 


Pierwsza klauzula wpisuje rozkaz asemblera i poddaje analizie resztę listy. Uzgod- 
nienie drugiej klauzuli następuje wówczas, gdy pierwszym elementem listy jest ety- 
kieta. Jest wtedy wypisywana etykieta z przypisanym jej rozkazem NOP. Trzecia 
klauzula zostaje uzgodniona wówczas, gdy lista rozkazów asemblera jest pusta, i służy 
do zakończenia procesu wypisywania listy. 


6.4.5. Moduł główny 


Program translatora jest uruchamiany za pomocą procedury start. 


start :- analizaLeks(ListaSymboli), 
analizaSynt(ListaSymboli,_„,Listalnstrukcji), 
tworzASM(Listalnstrukcji,ListaRozkazow,0,_), 
wypiszProgram(ListaRozkazow), 
write("Wcisnij dowolny klawisz") ,readChar(_),l. 


Procedura ta steruje całym procesem translacji programu źródłowego — zgodnie ze 
schematem podanym na rysunku 6.3—1. Kolejno są wywoływane procedury odpo- 
wiadające za sterowanie poszczególnymi etapami translacji: analizą leksykalną, ana- 
lizą syntaktyczną, asemblowaniem oraz wpisaniem otrzymanego programu do pliku. 


6.5. _ Przykład translacji 


Rozważmy przykład programu źródłowego służącego do obliczenia kwadratu liczby 
podanej z klawiatury. 
read a; 
ifa < =15thenb:=a*a 
else b: =0; 
write b; 
Po translacji otrzymuje się następujący program zapisany w języku asemblera 8086: 
STACK SEGMENT STACK 
DW 100 DUP(?) 
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STACK ENDS 

DATA SEGMENT 

a DB 1 DUP(O) 
b DB 1 DUP(O) 
DATA ENDS 


CODE SEGMENT 
ASSUME CS:CODE ,DS:DATA, SS: STACK 
INCLUDE TRPROC.LIB 

START: NOP 

LEA DX,a 
PUSH DX 
CALL CZYTAJ 
MOV AL,15 
PUSH AX 
MOV AL,a 
POP BX 
SUB AL,BL 
JA else0 
MOV AL,a 
PUSH AX 
MOV AL,a 
POP BX 
MOV AH,0 
MUL BL 
MOV b,AL 
JMP endif0 
else0: NOP 
MOV AL,O 
MOV b,AL 
endif0: NOP 
MOV AL,b 
CALL WYPISZ 
MOV AH,4Ch 
INT 21h 
CODE ENDS 
END START 
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Uwagi o kompilacji programu 


Ponieważ program translatora został napisany w sposób modułowy (porównaj p. 
D.3), przed przystąpieniem do kompilacji należy sprawdzić, czy w poszczególnych 
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katalogach kompilatora (ustawionych za pomocą opcji Setup i podopcji Directories) 

znajdują się następujące pliki: 

— (Current directory: wszystkie moduły programu, tzn. tr_Leks.pro, tr_Synt.pro, 
tr_0BJ.pro, tr Wyj.pro, trMaster.pro oraz trGlob.def i transl.prj; 

— Turbo directory: wszystkie pliki systemu Turbo Prolog. 


Kompilację programu można wykonać na jeden z następujacych sposobów: 

e wybrać opcję Compi le, a następnie podopcję Project, po czym podać nazwę tr.prj.; 

e wszystkie moduły skompilować za pomocą dwóch poleceń OBJ file i Link only 
(polecenia w ramach Compi le). 


Załóżmy na przykład, że wszystkie moduły programu translatora znajdują się 
na dyskietce w stacji B:, kompilator Turbo Prologu jest zainstalowany na dysku C: 
w katalogu prolog, a kod programu po kompilacji ma zostać zapisany na dysku A:. 
W celu skompilowania programu należy wykonać następujące operacje: 
— ustawić za pomocą opcji Setup odpowiednie przyporządowanie katalogów: 

Current directory: b: | 

OBJ directory: a: l 

EXE directory: az) 

Turbo directory: c:Nprolog 
— wywołać polecenie Project (w opcji Compile) i w odpowiedzi na pytanie o nazwę 

modułu podać nazwę tr.prj. 


Po wykonaniu tych czynności na dyskietkę A: zostanie zapisany program wynikowy 
translatora (plik tr.exe). 

Za pomocą uzyskanego w ten sposób programu tr.exe możemy dokonać 
translacji programu napisanego w języku pascalopodobnym na program w języku 
asemblera 8086. Aby uruchomić ten program, musimy go jeszcze poddać asemblowa- 
niu za pomocą standardowego programu asemblera MASM, oraz procesowi łączenia 
— za pomocą programu LINK. Podczas asemblowania należy zapewnić dostęp do 
pliku tr_proc.1ib; najłatwiej można to uzyskać wpisując go do tego samego katalogu, 
w którym znajduje się program MASM. 


Program translatora 
/* TR_GLOB.DEF - modul definicji globalnych */ 
GLOBAL DOMAINS 


dane = reference symbol * % patrz komentarz nr 1 
stala = stala(symbol ) 

zmienna = zmienna(symbo! ) 

wyrazenie = stala(symbol); 


zmienna (symbol ); 
wyraze(wyrazenie, symbol „wyrazenie); 
warunek (wyrazenie, symbol „wyrazenie) 
begin(instrukcje) 


begin 
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czytaj = czytaj (zmienna) 
pisz = pisz(wyrazenie) 
przypisanie = przypisanie(zmienna,wyrazenie) 
instrukcja = czytaj (zmienna); 


pisz(wyrazenie); 
przypisanie(zmienna,wyrazenie); 
if_(wyrazenie,instrukcja,instrukcja); 
whi le(wyrazenie,instrukcja); 


begin(instrukcje) 
instrukcje s jnstrukcja* 
rozkaz = rozkaz(symbol); 
etykieta(symbol ) 
listaRozkAsemb = rozkaz* 
file = plik 


GLOBAL DATABASE - slownik 
db _slownik(symbol ) 


GLOBAL PREDICATES 
analizaleks(dane) - (o) % patrz komentarz nr 2 
analizaSynt(dane,dane,instrukcje) - (i,o,o) 
tworzASM(instrukcje,listaRozkAsemb,integer,integer) - (i,o,i,0) 
wypiszProgram(listaRozkAsemb) - (i) 
/* 
Komentarz 1: 
Dyrektywa reference oznacza, ze do klauzul beda przekazywane adresy 
zmiennych, a nie ich wartosci. 


Komentarz 2: 
Przy definicji predykatow globalnych Turbo Prolog wymaga podania 
schematu przeplywu danych, okr slajacego, ktore z parametrow wywolania 
danej klauzuli sa wejsciowe, a ktore wyjsciowe. Parametr wejsciowy 
jest oznaczony litera 'i', a parametr wyjsciowy litera 'o'. 

*/ 

/* EOF - TR_GLOB.DEF */ 


/* TR_LEKS.PRO - modul analizy leksykalnej */ 


PROJECT "TR.PRJ" 
INCLUDE "TR_GLOB.DEF" 


PREDICATES 
podzial Tekstu(symbol ,dane) 
znak (symbol ) 

CLAUSES 


anal izaLeks(ListaSymbol i) 
:- write("Podaj nazwe pliku z programem zrodlowym :"), 
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readln(NazwaP1), nl, 
file _str(NazwaPl,Ciag),l, 
podzialTekstu(Ciag,ListaSymboli). 


podzialTekstu(Ciag,Reszta) 

:- frontChar(Ciag,' ',ResztaCiagu),l, 
podzialTekstu(ResztaCiagu,Reszta). 

podzial Tekstu(Ciag, [DwaZnaki |Reszta]) 

:- frontStr(2,Ciag,DwaZnaki ,ResztaCiagu), 
znak(DwaZnaki),l, 
podzialTekstu(ResztaCiagu,Reszta). 

podzial Tekstu(Ciag, [Znak|Reszta]) 

:- frontToken(Ciag,Znak,ResztaCiagu),l, 
podzialTekstu(ResztaCiagu,Reszta). 

podziałTekstu(_,[]) :- 1. 


znak(":="). znak("<="), 
znak(”<>"). znak(”>="). 
/* EOF - TR_LEKS.PRO */ 


/* TR_SYNT.PRO - modul analizy syntaktycznej */ 


PROJECT "TR.PRJ" 
INCLUDE "TR_GLOB.DEF" 


PREDICATES 
fnstrukcja(dane,dane, instrukcja) 
operator(integer, symbol) 
porownanie(symbol ) 
resztaWyr (integer ,dane,dane,wyrazenie,wyrazenie) 
wyrazenie(integer,dane,dane,wyrazenie) 
warunek (dane,dane,wyrazenie) 


CLAUSES 

analizaSynt(ListaSym,Reszta, [Instrukcja|Resztalns]) 

:- instrukcja(ListaSym,ResztaListySym, Instrukcja), 

anal izaSynt(ResztaListySym,Reszta,Resztalns),l. 

analizaSynt([";"|ListaSym],Reszta, Instrukcja) 

:- analizaSynt(ListaSym,Reszta, Instrukcja) ,!. 
analizaSynt(["end" |ListaSym],ListaSym,[]) :- L. 
analizaSynt(ListaSym,ListaSym,[]) :- |. 


instrukcja([Nazwa,”:="|ListaSym], 
Reszta, 
przypisanie(zmienna(Nazwa) „,Wyr) ) 

:- wyrazenie(2,ListaSym,Reszta,Wyr),l. 
instrukcja(["read" ,Nazwa|Reszta] „Reszta,czytaj(zmienna(Nazwa) )):-1. 
instrukcja(["write"|ListaSym] ,Reszta,pisz(Wyr)) 

:- wyrazenie(2,ListaSym,Reszta,Wyr),l. 
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instrukcja(["if"|ListaSym] ,Reszta,if_ (Harunek,Then,Else)) 
:- warunek(ListaSym, ["then" |Resztal],Warunek), 
instrukcja(Resztal,["else" |Reszta2],Then), 
instrukcja(Reszta2,Reszta,Else),!. 
instrukcja(["while" |ListaSym] „Reszta ,while(Warunek,Do)) 
:- warunek(ListaSym, ["do" |Resztal] ,Warunek), 
instrukcja(Resztal,Reszta,Do), |. 
instrukcja(["begin" |ListaSym],Reszta,begin(Lista)) 
:- analizaSynt(ListaSym,Resztal,Lista),Reszta=Resztal,!. 


wyrazenie(N,ListaSym,Reszta,Wyr) 
:- N>O0,N1 = N-1,wyrazenie(N1,ListaSym,PodWyr,ResztaWyr), 
resztaWyr(N,Podwyr,Reszta,ResztaWyr,Wyr),!. 
wyrazenie(_,[Wartosc|Reszta],Reszta,stala(Wartosc) ) 

:- str_int(Wartosc,_),!. % str_int - por. p. D.2.8 
wyrazenie(_,[Nazwa|Reszta],Reszta,zmienna(Nazwa)) :- !. 
resztaWyr(N, [Operator |ListaSym] ,Reszta,Argl ,Hyr) 

:- operator(N,Operator),N1 = N-l, 

wyrazenie(N1,ListaSym,PodWyr,Arg2), 


resztaWyr (N,PodHyr,Reszta,wyraze(Argl,Operator,Arg2),Wyr),!. 


reształyr(_,Reszta,Reszta,Wyr,Wyr) :- |. 


operator(2,"+"). operator(2,"-"). 
operator(1,"*"). operator(1,"/"). 


warunek(ListaSym,Reszta,warunek(Argl,Operator ,Arg2) ) 
:- wyrazenie(2,ListaSym, [Operator |Resztal],Argl), 
porownanie(Operator),wyrazenie(2,Resztal,Reszta,Arg2),!. 


porownanie("=") . porownanie(">") . 
porownanie("<") . porownanie("<="). 
porownanie("”<>"). porownanie(">="). 


/* EOF - TR_SYNT.PRO */ 


/* TR_ASM.PRO - modul asemblowania */ 


PROJECT "TR.PRJ" 
INCLUDE "TR_GLOB.DEF" 


PREDICATES 


append(1istaRozkAsemb, 1 istaRozkAsemb, listaRozkAsemb) 

jesli (symbol ,symbol ) 

operacja(symbol,listaRozkAsemb) 

s]ownik(symbol ) 

zakodowanielnstrukcji (instrukcja,ListaRozkAsemb, integer, integer) 
zakodowanieWarunku(wyrazenie,ListaRozkAsemb, integer, integer) 
zakodowanieWyrazenia(wyrazenie, listaRozkAsemb) 
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CLAUSES 
tworzASM([Instrukcja|Resztalnstr] ,KodProgramu,N,N2) 
:- zakodowanielnstrukcji(Instrukcja,Kod,N,N1), 
tworzASM(Resztalnstr,ResztaKodu,N1,N2), 
append(Kod,ResztaKodu,KodProgramu) ,!. 
tworzASM([],[],N,N) :- 1. 


zakodowanielnstrukcji (przypisanie(zmienna(Nazwa) ,Wyrazenie), 
Kodlnstrukcji ,N,N) 
:- slownik(Nazwa), 
concat("MOV ",Nazwa,Element), % cencat - p. D.2.7 
concat(Element,",AL",Rozkaz), 
zakodowanieWyrazenia(Wyrazenie,KodWyrazenia), 
append(KodHyrazenia, [rozkaz(Rozkaz)],Kodlnstrukcji),!. 
zakodowanielnstrukcji (czytaj (zmienna(Nazwa)), 
[rozkaz(Rozkaz),rozkaz("PUSH DX"), 
rozkaz("CALL CZYTAJ”)],N,N) 
:- slownik(Nazwa) ,concat("”LEA DX," ,Nazwa,Rozkaz),!. 
zakodowanielnstrukcji(pisz(Wyrazenie) ,Kodlnstrukcji,N,N) 
:- zakodowanieWyrazenia(Wyrazenie,KodWyr), 
append(KodHyr, [rozkaz(”CALL WYPISZ”)], Kodlnstrukcji),l. 
zakodowanielnstrukcji(if_(Test,Then,Else) ,Kodlnstrukcji,N,Nwy) 
:- zakodowanieWarunku(Test,TestKod,N,N1), 
zakodowanielnstrukcji (Then,ThenKod,N1,N2), 
zakodowanieirstrukcji(Else,ElseKod,N2,Nwy), 
str_int(Znak,), 
concat("else" ,Znak,Etykietal), concat("endif",Znak,Etykieta2), 
concat("JMP "„,Etykieta2,Skok), append(TestKod, ThenKod,Kodwyjl), 
append(Kodwyj1, [rozkaz(Skok) ,etykieta(Etykietal) |ElseKod],Kodwyj2), 
append(Kodwyj2,[etykieta(Etykieta2)],Kodlnstrukcji),!. 
zakodowanielnstrukcji (whi le(Test,Do) ,Kodlnstrukcji,N,Nwy) 
:- zakodowanieWarunku(Test,TestKod,N,N1), 
zakodowanielnstrukcji (Do,DoKod,N1,Nwy), 
str_int(Znak,N), 
concat("else",Znak,Etykietal), 
concat("while",Znak,Etykieta2), 
concat("JMP "„,Etykieta2 ,Skok), 
append([etykieta(Etykieta2) |TestKod],DoKod,Kodwyjl), 
append(Kodwyj1,[rozkaz(Skok),etykieta(Etykietal)],Kodlnstrukcji),l. 
zakodowanielnstrukcji(begin(Listalnstrukcji) ,Kodlnstrukcji ,N,Nwy) 
:- tworzASM(Listalnstrukcji,Kodlnstrukcji,N,Nwy),!. 


zakodowanieWarunku (warunek (Argl ,Znak,Arg2) „Kodwarunku,N,Nwy) 
:- zakodowanieWyrazenia(wyraze(Argl,"-",Arg2), Kodhyrazenia), 
jesli (Znak, Jump) ,str_int(Liczba,N), 
concat("else",Liczba,Etykieta),Nwy = N + 1, 
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concat (Jump,Etykieta,Skok), 
append(KodHyrazenia, [rozkaz(Skok) ],Kodwarunku),!. 
zakodowanieWyrazenia(stala(Wartosc),[rozkaz(Rozkaz)]) 
:- concat("MOV AL," ,Wartosc,Rozkaz),l. 
zakodowaniełyrazenia(zmienna(Nazwa) ,[rozkaz(Rozkaz)]) 
:- concat("MOV AL," ,Nazwa,Rozkaz),slownik(Nazwa),l. 
zakodowaniewyrazenia(wyraze(Wyrazel,Operand,Wyraze2) ,LW3) 
:- zakodowanieWyrazenia(Wyraze2 ,KodWyraze2), 
zakodowanieWyrazenia(Wyrazel,KodWyrazel), 
Operacja(Operand,KodOper), 
append(KodHyraze2,[rozkaz("PUSH AX")|KodWyrazel],Lwyl), 
append(Lwyl, [rozkaz("POP BX") |KodOper],LH3) ,t. 


slownik(Nazwa) 


:- not(db slownik(Nazwa)), assertz(db slownik(Nazwa)),l. 
slownik(_). 


append([],Lista,Lista). 
append( [Glowa |Ogon1l] ,Lista2, [Glowa | Ogon3] ) 
:- append(Ogonl,Lista2,O0gon3),l. 


jesli("=","JNZ "). 
jesli("<","JNC "). 
jesli(">","JNA "). 
jesli("<>","JZ "). 
jesli("<=","JA "). 
jesli(">=","JC "). 


operacja("+",[rozkaz(”ADD AL,BL")]). 
operacja("-",[rozkaz("”SUB AL,BL")]). 
operacja("*",[rozkaz(”MOV AH,0"”),rozkaz(”MUL BL")]). 
operacja("/",[rozkaz("”MOV AH,0"”),rozkaz("DIV BL")]). 
/* EOF - TR _ASM.PRO */ 


/*% TR_WYJ.PRO - modul wyjscia */ 


PROJECT "TR.PRJ" 
INCLUDE "TR_GLOB.DEF" 


PREDICATES 
deklaracjaZmiennych 
wpiszDoPliku(1istaRozkAsemb) 


CLAUSES 
wypiszProgram(Asembler) 
:- write("podaj nazwe pliku wynikowego :"), readln(Nazwa), nl, 
openwrite(plik,Nazwa), writeDevice(plik), 
write("STACK SEGMENT STACK ln", 
" DW 100 DUP(?)NnSTACK ENDSIn"), 
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write("DATA SEGMENT ln”), 
deklaracjaZmiennych , 
write("DATA ENDS ln”), 
write("CODE SEGMENT ln", 
" ASSUME CS:CODE,DS:DATA,SS:STACK ln”), 
write(" INCLUDE TR_PROC.LIB NnSTART: NOP Mn"), 


wpiszDoP1iku(Asembler), 
write(" MOV AH,śChin INT 21hin”), 
write("CODE  ENDSIn END STARTJn"), 
closeFile(plik), writeDevice(screen),l. 
deklaracjaZmiennych 
:- db slownik(Nazwa), write(Nazwa,"1tOB 1 DUP(0)"), nil, fail. 
deklaracjaZmiennych. 


wpiszDoP1 iku((rozkaz(Rozkaz) |ListaRozk]) 

:- write(" " ,Rozkaz),nl, wpiszDoPliku(ListaRozk),l. 
wpiszDoPliku([etykieta(Etykieta) |ListaRozk]) 

:- write(Etykieta,": NOP ln"), wpiszDoPliku(ListaRozk),l. 
wpiszDoPliku([]). 


/* EOF - TR WYJ.PRO */ 


/* TRMASTER.PRO - modul glowny programu */ 


PROJECT "TR.PRJ" 
INCLUDE "TR_GLOB.DEF" 


PREDICATES 
start 


GOAL start. 


CLAUSES 
start :- analizaLeks( ListaSymboli), 
analizaSynt( ListaSymboli, „ListaRozkazow), 
tworzASM(ListaRozkazow,Asembler,0,_), 
wypiszProgram(Asembler), 
write("ln Wcisnij dowolny klawisz”),readChar(_),1l. 


/* EOF - TRMASTER.PRO */ 
/* TR.PRJ - modul zawierajacy definicje project */ 


tr_leks+ 

tr_Synt+ 

tr_Asm+ 

tr_Wyj+ 

trMaster+ 

/* EOF - TR.PRJ */ 


129 


130 6. Przykład realizacji prostego translatora 


; TR_PRÓC.LIB - plik z implementowanymi instrukcjami READ i WRITE 
; w jezyku asemblera 8086 
WYSW PROC swyprowadzenie znaku na ekran 
MOV  AH,02h swybor funkcji DOS-u 
XCHG AL,DL sznak z DL do AL 
INT 21h swywolanie funkcji DOS-u 
RET ;wyjscie z procedury 
WYSW ENDP 
WYPISZ PROC swyprowadzenie liczby trzycyfrowej na ekran 
MOV  BL,100 
MOV  AH,OO0h 
DIV BL 
ADD  AL,30h 
PUSH AX 
CALL WYSW swyswietlenie pierwszej cyfry 
POP AX 
MOV  AL,AH 
MOV  AH,00 
MOV  BL,10 
DIV BL 
ADD  AX,3030h 
PUSH AX 
CALL HYSW swyswietlenie drugiej cyfry 
POP AX 
MOV  AL,AH 
PUSH AX 
CALL WYSW swyswietlenie trzeciej cyfry 
POP AX 
MOV  DL,OAh ;spowrot na poczatek wiersza 
MOV  AH,O02h 
INT 21h 
MOV  DL,ODh sprzejscie do nastepnego wiersza 
INT 21h 
RET swyjscie z procedury 


WYPISZ ENDP 


CZYTAJ PROC sodczytanie liczby z klawiatury 
MOV  DX,00 
MOV  AH,Olh 
INT 21h ;sodczytanie pierwszej cyfry 
CMP  AL,ODh 
JZ KONIEC sgdy RETURN, to koniec wczytywania 
SUB  AL,30h 


MOV  DL,AL 
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INT 21h sodczytanie drugiej cyfry 

CMP  AL,ODh 

JZ KONIEC sgdy RETURN, to koniec wczytywania 
MOV  BL,10 

SUB  AL,30h 

XCHG AL,DL 

MUL BL 

ADD  DL,AL 

MOV  AH,Olh 

INT 21h zodczytanie trzeciej cyfry 

CMP  AL,ODh 

JZ KONIEC sgdy RETURN, to koniec wczytywania 
MOV  BL,10 

SUB  AL,30h 

XCHG AL,DL 

MUL BL 

ADD  DL,AL 


KONIEC: MOV  BX,SP 
MOV  BX,SS:[BX+2] ;zodczytanie adresu zmiennej 


MOV  DH,O 

MOV  DS:[BX],DX ;zapisanie odczytanej liczby do zmiennej 
MOV  DL,OAh spowrot na poczatek wiersza 

MOV  AH,O2h 

INT 21h 

MOV  DL,ODh sprzejscie do nastepnego wiersza 

INT 21h 

RET 2 ;wyjscie z procedury 


CZYTAJ ENDP 
; EOF - TR_PROC.LIB 


Dodatek 
Kompilator Turbo Prolog — wersja 2.0 


D.1. Wymagania ogólne i sposób korzystania z systemu 
Turbo Prolog 


Turbo Prolog wymaga systemu operacyjnego DOS w wersji 2.0 lub późniejszych, 
minimum 384 KB pamięci RAM (dla bardziej złożonych zadań 640 KB) oraz dwóch 
stacji dysków elastycznych 360 KB lub dysku stałego. W skład podstawowego pakietu 
systemu wchodzą pliki: PROLOG.EXE, PROLOG.OVL, PROLOÓG.SYS, PROLOG.ERR, PROLOG.HLP, 
PROLOG.LIB, INIT.OBJ, TLIB.EXE i TLINK.EXE. 

Po uruchomieniu systemu poleceniem prolog, na ekranie pojawiają się cztery 
główne okna: Editor, Dialog, Message i Trace (rys. D.1-1). Okno Editor służy do 
tworzenia programów. W oknie Dialog są wyświelane pytania zadawane przez użyt- 
kownika oraz wyniki działania programu. W oknie Message są wyświetlane informacje 
o realizowanych operacjach systemowych. Okno Trace jest natomiast używane do 
znajdowania usterek w działaniu programu. 

Korzystając z opcji Setup każde z tych okien można przesuwać w dowolne 
miejsce na ekranie, powiększać lub zmniejszać. 

W górnej części ekranu jest umieszczone główne menu systemu, zawierające 
sześć opcji: Files, Edit, Run, Compile, Option i Setup o następującym znaczeniu: 


Edit — służy do tworzenia nowego program lub zmiany programu istniejącego 
w pamięci (z użyciem okna Editor); 

Files — powoduje załadowanie programu z dysku do pamięci lub zapisanie na 
dysku programu znajdującego się w pamięci; 

Compile  — powoduje skompilowanie programu znajdującego się w pamięci; 

Run — powoduje skompilowanie, a następnie uruchomienie programu; 

Options _ — umożliwia wybranie rodzaju kompilacji; 

Setup — umożliwia zmianę parametrów systemu Turbo Prolog (np. rozmiarów 


i pozycji okien). 


D.1. Wymagania ogólne i sposób korzystania z systemu Turbo Prolog 133 


Files Edit Run Compile Options Setup 


————-—————. Editor Dialog 
Li nej! BIĘCo 1 fi BĘWORK. PROBĄTndent|i[1 nsert 


a | 


F2-Save F3-Load F6-Switch F9-Compile ALIŁ-X-Exit 


Rys. D.1-1. Cztery podstawowe okna systemu Turbo Prolog 


Aby wybrać daną opcję, należy za pomocą klawiszy strzałkowych przesunąć 
odpowiednio podświetlenie, a następnie nacisnąć klawisz Enter; można też wprowa- 
dzić z klawiatury pierwszą literę nazwy wybranej opcji. 


Edit Run Compile Options Setup 


Editor Dialog 


Load ORK. PRO 


Pick 

New file 
Save 
Write to 
Directory 
Change dir 
OS shell 
Quit 


m NM 


F2-Save F3-Load F6-Switch F9-Compile A1Ł-X-ExiL 


Rys. D.1-2. Menu wewnętrzne opcji fi les 
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Niektóre opcje, np. Files, mają dodatkowe, wewnętrzne menu (rys. D.1-2). 
Znaczenie poszczególnych poleceń menu dla opcji Files jest następujące: 


Load — wczytanie pliku w celu jego redagowania lub uruchomienia zapisanego 
w nim programu; 

Pick — wczytanie jednego z ostatnio używanych plików; 

New File  — usunięcie dotychczasowej zawartości edytora; 

Save — zapisanie redagowanego tekstu programu do pliku, bez zmiany nazwy 


tego pliku (pod dotychczasową nazwą); 
Write to zapisanie redagowanego tekstu programu do pliku pod nową nazwą; 
Directory wyświetlenie zawartości bieżącego katalogu; 
Change dir — zmiana bieżącego katalogu; 


0OSShell  — umożliwienie wykonywania poleceń DOS-u bez usuwania Turbo 
Prologu z pamięci; 
Quit — wyjście z Turbo Prologu. 


Można zrezygnować z korzystania z wewnętrznego menu i wrócić do menu 
głównego, naciskając klawisz Esc. Podobnie można wrócić z edytora do menu głów- 
nego za pomocą klawisza Esc lub F10. Informacje pomocnicze (ang. help) można 
uzyskać naciskając podczas pracy w edytorze klawisz F1. Na rysunku D.1-3 podano 
przykładową zawartość okien podczas realizacji programu (por. przykład 3.5—2). 


Files Edit Compile Options Setup 


Editor Dialog 


IL: nej5EIKo" J15SĘIEUMA. PROJĄI ndent fi nsert : suma(7,S) 


PREDICATES 
% suma(liczba ,SumaLiczb) 
suma(integer, integer 


CLAUSES 
suma(0, 0). 
suma(N, N_suma) if 
N>O and 
M=N-1 and 
suma(M, M_suma) and 
N_suma=N+M_sunma. 


1 Solution 


) Goal: 


essage 
Load SUMA. PRO 
Conpiling SUMA. PRO 
Suma 


F2-Save F3-Load F6-Switch F9-Compile A1Ł-X-Exit 


Rys. D.1-3. Zawartość okien podczas uruchamiania przykładowego programu 


Podstawowe operacje, które należy wykonać w celu napisania i uruchomienia 
programu są następujące: 0. 
— wybranie trybu redagowania (opcja Edit w menu głównym) oraz wpisanie tekstu 
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źródłowego programu; jeżeli program został utworzony wcześniej i zapisany w pli- 
ku, to zamiast tego należy wykonać polecenie Load; 
— wykonanie kompilacji i ewentualne usunięcie błędów występujących w programie 
(opcja Compi le); 
— zapisanie programu na dysku za pomocą polecenia Write to lub Save; 
— uruchomienie programu (opcja Run); 
— podanie pytania w oknie Dialog (w przykładzie przedstawionym na rysunku D.1-3 
podano pytanie: suma(7,S)). 
Po wykonaniu tych operacji Turbo Prolog odpowie (porównaj okno Dialog na rysunku 
D.1-3): 
S=28 
1 solution 
Goal: 


Oznacza to, że korzystając z redagowanego programu Prolog wyznaczył wartość sumy 
równą 28. 

Jeżeli w kompilowanym programie system wykryje błąd, to jest wyświetlany 
odpowiedni komunikat oraz następuje automatyczne przejście do trybu redagowania 
i ustawienie kursora w miejscu wystąpienia błędu. Pozwala to w łatwy sposób usuwać 
kolejne błędy. 

Realizację programu można przerwać w dowolnej chwili klawiszem Esc. 

Program wynikowy, powstający po kompilacji, jest umieszczany standardowo 
w pamięci operacyjnej (podopcja Memory w menu wewnętrznym opcji Compile) i może 
być wykonywany jedynie w ramach systemu Turbo Prolog (opcja Run). Program ten 
można również zapisać na dysk tak, aby powstał plik z rozszerzeniem EXE. Dzięki temu 
można wykonywać ten program poza systemem Turbo Prolog, z poziomu systemu 
operacyjnego DOS. Program źródłowy musi zawierać w tym przypadku sekcję GOAL. 
Aby dokonać kompilacji na dysk, należy w menu wewnętrznym opcji Compi le wybrać 
podopcję EXE file (auto link). 


D.2. Opis wybranych predykatów 


D.2.1. Wstęp 
Predykaty w niniejszym opisie są przedstawione w następujący sposób: 


nazwa_predykatu(NazwaParametrul ,NazwaParametru2,... ) 


(typParametrul,typParametru2,... ) 
(we,wy,... ) lub (we,we/wy,... ) lub ... 


przy . . . . 
— typy parametrów są standardowymi dziedzinami występującymi w 'Turbo Prologu, 


tzn: integer, real, char, symbol, string, file i reg; 


136 Dodatek. Kompilator Turbo Prolog — wersja 2.0 


— skróty we, wy oraz we/wy oznaczają kierunek przepływu informacji, podczas wywo- 
łania określonego predykatu: 
we — parametr wejściowy (ukonkretniony w chwili wywołania predykatu), 
wy — parametr wyjściowy (ukonkretniany w wyniku wywołania predykatu, jeśli 
predykat nie zawiedzie), 
we/wy — parametr wyjściowy, częściowo ukonkretniony w chwili wywołania (ukon- 
kretniany w całości w wyniku wywołania predykatu, jeśli predykat nic zawiedzie). 


D.2.2. Predykaty czytania 


file_str(NazwaKatalogowaP1iku,ZmiennaString) 
(string,string) 
(we,wy) lub (we,we) 
Jeśli parametry są postaci (we,wy), to przypisuje zmiennej ZmiennaString tekst znaj- 
dujący się w pliku o podanej nazwie (plik o nazwie NazwaKatalogowaP 1 iku musi istnieć); 
jeśli natomiast w postaci (we,we), to otwiera do pisania pliku o nazwie NazwaKkatalogowa- 
Pliku, zapisuje wartość zmiennej ZmiennaString i zamyka plik. 


inKey(Znak) 
(char) 
(wy) 
Sprawdza zawartość buforu klawiatury. Jeśli znajdują się w nim jakieś znaki, to 
wczytuje pierwszy z nich. Jeśli bufor ten jest pusty, to zawodzi. 


keyPressed 


Zawodzi, gdy bufor klawiatury jest pusty. 


readChar (Znak) 
(char) 
(wy) 
Wczytuje jeden znak, nie czekając na naciśnięcie klawisza Enter. 


readlnt(Liczba) 
(integer) 
(wy) 
Wczytuje jedną liczbę całkowitą. Jeśli podano obiekt niezgodny z typem integer, to 
zawodzi. 


readln(Wiersz) 
(string) 
(wy) 
Wczytuje jedną zmienną tekstową. Z klawiatury wczytuje do 127 znaków, z innych 
urządzeń do 64 KB. Zawodzi, gdy naciśnięto klawisz Esc. 
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readReal (Liczba) 
(real) 
(wy) 
Wczytuje jedną liczbę rzeczywistą. Zawodzi, gdy podano obiekt niezgodny z typem 


real. 


readTerm(DziedzinaCzytanegoObiektu,CzytanyObiekt) 
(nazwaDziedziny,ObiektZPodanejDziedziny) 
(we,wy) lub (we,we/wy) 
Wczytuje obiekt należący do dowolnej dziedziny (standardowej lub zdefiniowanej 
w programie), określonej przez parametr DziedzinaCzytanegoObiektu. Wczytywana 
wartość musi odpowiadać definicji tej dziedziny. 


Uwaga 


Korzystając z predykatów readlnt, readln, readReal oraz readTerm do poprawiania 
wprowadzanej danej, można używać klawiszy: <<, >, Home, End, Del, Backspace 
(przed naciśnięciem klawisza Enter). 


D.2.3. Predykaty pisania 


nl] 


Wysyła sekwencję znaków sterujących CR, LF do bieżącego urządzenia wyjściowego, 
powodując przejście na początek nowego wiersza. 


write(Ciąg_zmiennych_i_stałych) 
(dowolnyTyp, dowolnyTyp, ...) 
(we,we,... ) 
Wpisuje podane stałe lub wartości zmiennych do bieżącego urządzenia wyjściowego. 
Może być wywołany z wieloma argumentami (bedącymi stałymi lub zmiennymi ukon- 
kretnionymi). 


writef(Format,Ciąg_zmiennych_i_stałych) 
(string, typStandardowy, typStandardowy, ...) 
(we,we,we,... ) 
Tworzy sformatowany wydruk. Argumenty muszą być stałymi lub zmiennymi ukon- 
kretnionymi, należącymi do dziedzin standardowych. Pierwszy parametr (Format) za- 
wiera ciągi znaków drukowane bez modyfikacji i następujące specyfikatory formatu: 
%d — liczba dziesiętna (char i integer), 
%u — liczba bez znaku (char i integer), 
%R — wskaźnik bazy danych (ref), 
%X— długa liczba szesnastkowa (string i ref), 
%4x — liczba szesnastkowa (char i integer), 
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%s — napis (string i symbol), 

%c — znak (char i integer), 

%g — najkrótszy z formatów liczby rzeczywistej (real), 

%e — liczba rzeczywista w zapisie wykładniczym (real), 

%f — liczba rzeczywista w zapisie dziesiętnym (real), 

%-liczba.liczba — znak „-” oznacza wyrównywanie w lewą stronę (opcjonal- 
ny); pierwsza 1 iczba oznacza całkowitą liczbę znaków; druga liczba — 
liczbę znaków po przecinku (dla liczb rzeczywistych — integer i real), 

Mn — nowy wiersz, 

It — tabulacja, 


Nnumer — znak z tablicy kodów ASCII o numerze numer. 


D.2.4. Predykaty obsługi plików 


closeFi le(Symbol icznaNazwaP 1 i ku) 
(file) 
(we) 


Zamyka plik. Zapobiega to utracie danych zapisanych w pliku. Predykat ten nie 
zawodzi nawet wówczas, gdy plik nie był wcześniej otwierany. 


deleteFi le(NazwaKatalogowaP1 i ku) 
(string) 
(we) 
Kasuje plik o podanej nazwie. Jeśli przekazana nazwa jest nazwą istniejącego na 
dysku pliku, to predykat skutkuje, w przeciwnym razie wystąpi błąd wykonania. 
disk(ŚcieżkaWDosie) 


(string) 
(we) lub (wy) 


Zmienia bieżący katalog lub odczytuje jego nazwę. 


eof (Symbol icznaNazwaP |] iku) 
(file) 
(we) 
Skutkuje, gdy osiągnięto koniec pliku. 


existFi le(NazwaKatalogowaP I iku) 
(string) 
(we) 


Sprawdza, czy istnieje w bieżącym katalogu plik o nazwie NazwakatalogowaP liku. Jeśli 
tak jest, to wywołanie predykatu skutkuje, w przeciwnym razie zawodzi. 
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fi leMode (Symbol i cznaNazwaP | iku, TrybTekstowyLubBinarny) 
(file,integer) 
(we ,we) 
Ustawia lub sprawdza tryb współpracy z plikiem. Dozwolony jest tryb tekstowy (0) lub 
tryb binarny (1). 


fi lePos (Symbol icznaNazwaP] iku,PozycjaWPliku,Tryb) 
(file,real,integer) 
(we,we,we) lub (we,wy,we) 
Zmienia pozycję czytania i pisania w pliku lub odczytuje jej bieżącą wartość. Tryb 
określa sposób naliczania pozycji w stosunku do: 
0 — początku pliku, 
1 — bieżącej pozycji pliku, 
2 — końca pliku. 


flush (Symbol icznaNazwaP] iku) 
(file) 
(we) 
Wysyła zawartość buforu do przypisanego pliku. Predykat stosuje się zwykle wówczas, 
gdy urządzeniem wyjściowym jest port szeregowy i należy wysłać dane przed zapeł- 
nieniem buforu. Przy normalnej pracy z dyskami bufor jest wysyłany automatycznie. 


openAppend (Symbol icznaNazwaP I iku,NazwaKatalogowaP ] iku) 
(file,string) 
(we,we) 


Otwiera plik do dopisywania i ustawia pozycję pisania na koniec pliku. 


openModi fy (Symbol i cznaNazwaP ] i ku,NazwaKata l ogowaP liku) 
(file,string) 
(we ,we) 


Otwiera plik zarówno do czytania, jak i pisania. 


openRead (Symbol icznaNazwaP] i ku, NazwaKatalogowaP |] iku) 
(file,string) 
(we,we) 


Otwiera plik do czytania. 


openWri te (Symbol icznaNazwaP |] iku,NazwaKatalogowaP I iku) 
(file,string) 
(we,we) 
Otwiera plik do pisania. Jeśli plik o podanej nazwie istniał, to jego dotychczasowa 
zawartość jest kasowana, w przeciwnym razie plik jest tworzony i dopisywany do 
katalogu. 


140 Dodatek. Kompilator Turbo Prolog — wersja 2.0 


Uwaga 


W predykatach openAppend, openModify, openRead, openWrite plik o nazwie Nazwakata- 
logowaPliku zostaje powiązany ze zmienną plikową Symbol icznaNazwaP liku. Jeśli plik 
o podanej nazwie nie istnieje, to z wyjątkiem openwri te wywołanie predykatu zawodzi. 
Jeśli podana nazwa jest niedozwolona, to wystąpi błąd wykonania. 


readDevi ce (Symbol icznaNazwaP|] i ku) 
(file) 
(we) lub (wy) 


Ustawia lub podaje bieżące urządzenie wejściowe. Standardowo urządzeniem wejś- 
ciowym jest klawiatura (keyboard). 


renameF i le(StaraNazwakKatalogowaP 1 i ku, NowaNazwaKatalogowaP] i ku) 
(string,string) 
(we ,we) 


Zmienia nazwę pliku przekazaną przez parametr StaraNazwakatalogowaP liku na nazwę 
przekazaną przez parametr NowaNazwaKatalogowaP | iku. Predykat skutkuje pod warun- 
kiem, że nie istniał już wcześniej plik o nazwie takiej samej, jak nowa nazwa, i że obie 
przekazane nazwy są poprawne. W przeciwnym razie wystąpi błąd wykonania. 


wri teDevi ce (Symbol icznaNazwaP] i ku) 
(file) 
(we) lub (wy) 


Zmienia lub podaje bieżące urządzenie wyjściowe. Standardowo urządzeniem wyjś- 
ciowym jest aktywne okno ekranu (screen). 


D.2.5. Predykaty obsługi ekranu 


Wiele predykatów w Turbo Prologu korzysta z pojęcia atrybutu znaku określającego 
intensywność lub kolor świecenia znaku. Jego wartość można obliczyć w następujący 
sposób: 


— wybrać kolor znaków i kolor tła według tablicy odpowiadającej określonej karcie 
graficznej (CGA, EGA, Hercules), 

— dodać do siebie liczby oznaczające wybrane kolory, 

— ewentualnie do uzyskanego wyniku dodać 128, w celu uzyskania migania znaków. 


attribute(Atrybuty) 


(integer) 
(we) lub (wy) 
Zmienia lub podaje atrybut pisania. 
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Tabl. D.2.5-1. Kody kolorów dla kart graficznych CGA i EGA 


Czamy 0 Czarny 0 
Szary 8 Niebieski 16 
Niebieski 1 Zielony 32 
Jasnoniebieski 9 Siny 48 
Zielony 2 Czerwony 64 
Jasnozielony 10 Fioletowy 80 
Siny 3 Brązowy 96 
Jasnosiny 11 Biały 112 
Czerwony 4 
Jasnoczerwony 12 
Fioletowy 5 
Jasnofiolctowy 13 
| Brązowy 6 
Zółty 14 
7 


Biały 
Biały intensywn 15 
Tabl. D.2.5-2. Oznaczenia kolorów dla karty graficznej Hercules 


[| Oznaczenie rodzaju tła Oznaczenie rodzaju znaków | Efekt na ekranie | 


0 2...7 
(1...6)*16 0...7 Znaki na ciemnym tle 
112 1...7 
0 10...15 
(1...6)*16 8...15 Jasno świecące znaki na ciemnym tle 
„112 9...15 
0 1 Znaki podkreślone 
0 9 Znaki podkreślone jasno świecące 
112 0 lub 8 Ciemne znaki na jasnym tle 


cursor(Hiersz,Kolumna) 
(integer,integer) 
(we,we) lub (wy,wy) 
Zmienia położenie kursora na ckranie lub podaje jego bieżącą pozycję. Położenie 
kursora jest naliczane w stosunku do lewego górnego rogu aktywnego okna, o współ- 
rzędnych (0,0). 


cursorFform(PoczątkowyRządek,KońcowyRządek) 
(integer,integer) 
(we,we) (wy,wy) 
Zmienia lub podaje rozmiar kursora. Parametry PoczątkowyRządek i KońcowyRządek 
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powinny zawierać się w przedziale <1,13> (dla karty CGA <1,7>). Rządki 
w matrycy kursora są numerowane od góry do dołu. Podanie numeru początkowego 
rządka większego niż numer rządka końcowego powoduje wygaszenie kursora. 


field attr(Wiersz,Kolumna,Długość Atrybuty) 
(integer,integer,integer,integer) 
(we,we,we,we) lub (we,we,we,wy) 
Ustawia lub podaje atrybut znaków znajdujących się na ekranie od pozycji określonej 
przez parametry Wiersz I Koluma do pozycji określonej przez parametr Długość. Gdy 
znaki te mają różne atrybuty, to jest podawany atrybut pierwszego znaku. W razie 
odwołania się do pozycji poza aktywnym oknem, wystąpi błąd wykonania. 


field_str(Wiersz,Kolumna, LiczbaZnaków,Napis) 
(integer,integer,integer,string) 
(we,we,we,we) lub (we,we,we,wy) 
Wypisuje podaną LiczbęZnaków tekstu Napis w miejscu, którego początek określają 
parametry Wiersz i Kolumna, lub odczytuje tyle znaków ze wskazanego miejsca ak- 
tywnego okna. Gdy parametr LiczbaZnaków jest większy niż długość Napisu, to zostaną 


dopisane spacje. Odwołanie się do pozycji poza aktywnym oknem spowoduje błąd 
wykonania. 


scr_atr(Wiersz,Kolumna,Atrybuty) 
(integer,integer,integer) 
(we,we,we) lub (we,we,wy) 

Ustawia lub podaje atrybut znaku, którego pozycja jest określona przez parametry 


Wiersz i Kolumna. Odwołanie się do pozycji poza aktywnym oknem spowoduje błąd 
wykonania. 


scr_chr(Wiersz,Kolumna,Znak) 
(integer,integer,char) 
(we,we,we) lub (we,we,wy) 
Wypisuje Znak w określonej przez parametry Wiersz i Kolumna pozycji aktywnego okna 
lub odczytuje znak występujący na tej pozycji. Odwołanie się do pozycji poza ak- 
tywnym oknem spowoduje błąd wykonania. 


D.2.6. Predykaty obsługi okien w trybie tekstowym 


clearWindow 


Czyści aktywne okno i ustawia kursor w jego lewym górnym rogu. 


frameWindow(Atrybut ) 
(integer) 

(we) 
Ustawia atrybut ramki aktywnego okna zgodnie z parametrem Atrybut. 
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makeWindow(NrOkna ,AtrHnętrza,AtrRamki „Nagłówek ,GórnyWiersz, 
LewakKo | umna „Wysokość , Szerokość) 


(integer,integer,integer,string,integer,integer, 
integer,integer) 

(we,we,we,we,we,we,we,we) lub 
(WyWYsWY+WY,WYWY,WY,WY) 


Tworzy okno tekstowe zgodnie z podanymi parametrami lub podaje parametry ak- 
tywnego okna. Do utworzonego okna można odwoływać się przez jego numer okreś- 
lony parametrem NrOkna. Atrybuty znaków w oknie określa parametr AtrWnętrza, 
a atrybuty znaków ramki — AtrRamki. Nagłówek jest wyświetlany na środku górnej krawę- 
dzi ramki. Położenie okna określają parametry GórnyWiersz i LewaKolumna, jego roz- 
miary natomiast (łącznie z ramką) — parametry Wysokość i Szerokość (jeśli AtrRamki =0, 
to całość stanowi obszar roboczy). Aby nie wystąpił błąd wykonania, muszą być 
spełnione następujące warunki: 


Wiersz + Wysokość <= 25, 
Kolumna + Szerokość <= 80, 
0 <= Wiersz <= 22, 

0 <= Kolumna <»= 77, 

3 <= Hysokość <= 25, 

3 <= Szerokość <= 80. 


makeWindow(NrOkna ,AtrHnętrza,AtrRamki „Nagłówek ,GórnyWiersz, 
LewakKolumna,Wysokość,Szerokość,Czyszczenie, 
PozycjaNagłówka,ZnakiTworząceRamkę) 


(integer,integer,integer,string,integer,integer, 
integer,integer,integer,integer,string) 
(we,we,we,we,we,we,we,we,we,we,we) lub 
(wy,wy,WY,WY,WY,WY,WYWY,WY,WY,WY) 


Jest to rozszerzona wersja predykatu makeWindow. W porównaniu z pierwszą definicją 
dodatkowe trzy parametry oznaczają: 


Czyszczenie: 0 — założenie okna bez czyszczenia początkowego, 

1 — czyszczenie okna po jego założeniu, 
PozycjaNagłówka —=255 — środkowanie nagłówka okna, 

< > 255 — początek nagłówka od określonej pozycji, 


ZnakiTworząceRamkę — określenie znaków składających się na ramkę okna; 
kolejno podaje się lewy górny róg, prawy górny róg, lewy 
dolny róg, prawy dolny róg, linię poziomą, linię pionową 
(np. dla ramki pojedynczej). 


removeWindow 


Kasuje aktywne okno. Usuwa je z ekranu i odtwarza zawartość ekranu występującą 
poprzednio w tym miejscu. 
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shiftWwindow(NrOkna) 
(integer) 
(we) lub (wy) 
Uaktywnia okno o numerze przekazanym przez NrOkna i ustawia kursor na ostatnio 
zajmowaną pozycję lub podaje numer aktywnego okna. Gdy istnieje więcej okien 
o tym samym numerze, to zostanie uaktywnione okno ostatnio utworzone. Odwołanie 
się do numeru okna nie istniejącego spowoduje błąd wykonania. 


window_atr(Atrybut) 
(integer) 
(we) 


Ustawia atrybut wnętrza aktywnego okna zgodnie z parametrem Atrybut. 


window _str(Napis) 
(string) 
(we) lub (wy) 
Wyświetla napis przekazany przez parametr w aktywnym oknie lub przypisuje para- 


metrowi ciąg wszystkich znaków z okna. Jeśli wyświetlany napis ma wiersze dłuższe 
niż długość okna, to część znaków nie będzie widoczna. 


D.2.7. Predykaty dotyczące napisów 


conćcat(Napisl,Napis2,Napis3) 
(string,string,string) 
(we,we,wy) lub (we,wy,we) lub 
(wy,we,we) lub (we,we,we) 


W zależności od tego, które z parametrów są ukonkretnione, predykat wykonuje 
jedną z następujących operacji: 


Parametry ukonkretnione Wykonywana operacja 
Napisl, Napis2 Napis3=Napisl+Napis2 
Napisl, Napis3 Napis2=Napis3-Napisl 
Warunek: Napis3 rozpoczyna się Napi seml 
Napis2, Napis3 Napisl=Hapis3-Napi s2 


Warunek: Napi s3 kończy się Napi sem2 
Napisl, Napis2, Napis3 Sprawdzenie, czy Napis3=Napisl+Napis2 


Jeśli wynik wykonania predykatu concat przykraczałby 64 KB znaków, to wystapi błąd 


wykonania. Ta sama uwaga dotyczy również opisanych poniżej predykatów frontChar, 
frontToken. 


frontChar (Napis,Znak,Reszta) 
(string,char,string) 


(we,wy,wy) lub (we,we,wy) lub (we,wy,we) 
lub (we,we,we) lub (wy,we,we) 
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W zależności od tego, które z parametrów są ukonkretnione, predykat wykonuje 
jedną z następujących operacji: 


Parametry ukonkretnione Wykonywana operacja 


Napis Znak = pierwszy znak Napisu, 
Reszta=Napis bez pierwszego znaku 

Napis, Znak Jeśli Znak jest pierwszym znakiem Napisu, to 
Reszta=Napis bez pierwszego znaku 

Napis, Reszta Jeśli Reszta jest równa Napisowi bcz pierwszego znaku, to 
Znak =pierwszy znak Napi su 

Napis, Znak, Reszta Sprawdzenie, czy Znak jest pierwszym znakiem Napi su, 
a Reszta równa Napisowi bez pierwszego znaku 

Znak, Reszta Napis=Znak+Reszta 


(Patrz również — uwaga końcowa do predykatu concat). 


frontStr(LiczbaZnaków,Napis,Początek,Reszta) 
(integer,string,string,string) 
(we,we,wy,wy) 
Dzieli Napis na dwie części i przypisuje zmiennej Początek taką liczbę początkowych 
znaków, jaką określa parametr LiczbaZnaków. Pozostałą część napisu przypisuje para- 
metrowi Reszta. LiczbaZnaków musi być mniejsza lub równa długości Napisu, w prze- 
ciwnym razie predykat zawodzi. 


frontToken(Napis,Wyrażenie,Reszta) 


(string,string,string) 

(we,wy,wy) lub (we,we,wy) lub (we,wy,we) lub 

(we,we,we) lub (wy,we,we) 
Oddziela od Napisu wyrażenie, które go rozpoczyna. Wyrażeniem tym może być: 
nazwa dopuszczalna w Turbo Prologu, liczba typu integer lub real albo znak specjal- 
ny. W zależności od tego, które z parametrów są ukonkretnione, wykonuje jedną 
z następujących operacji: 


Parametry ukonkrctnione Wykonywana operacja 


Napis Dzieli Napi s na łyrażenie go rozpoczynające i Resztę 

Napis, Wyrażenie Jeśli Wyrażenie rozpoczyna NapiS, to pozostałą część 
przypisuje Reszcie 

Napis,Reszta Jeśli Reszta jest częścią Napi Su po pomineciu początkowego 


wyrażenia, to wyrażenie to przypisuje Wyrażeniu 
Napis, Wyrażenie, Reszta Porównuje Napis ze złożeniem Hyrażenia i Reszty 
Wyrażenie, Reszta Łączy Wyrażenie iResztę w Napis 


(Patrz również — uwaga końcowa do predykatu concat). 
isName(Napis) 


(string) 
(we) 
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Sprawdza, czy zawartość Napi su stanowi nazwę dopuszczalną dla Turbo Prologu, tzn. 


czy składa się jedynie z liter, cyfr i znaku podkreślenia oraz czy zaczyna się od litery 
(małej lub wielkiej) lub znaku podkreślenia. 


str_len(Napis,Długość) 

(string,integer) 

(we,we) lub (we,wy) lub (wy,we) 
Jeśli parametr Długość jest nieukonkretniony, to predykat przypisuje mu wartość 
równą liczbie znaków w Napisie. Gdy parametr ten jest ukonkretniony oraz parametr 
Napis jest również ukonkretniony, to porównuje jego wartość z liczbą znaków w Na- 
pisie. W sytuacji (wy,we) przekazuje w wyniku ciąg spacji o zadanej długości. Znaki Mt 
oraz Mn są liczone jako jeden. Ze względu na to, że napis może mieć do 64 KB, 


a zakres dodatni liczb integer wynosi 32767, dla dłuższych napisów Długość jest liczbą 
ujemną. 


D.2.8. Predykaty konwersji typów 


char_int(Znak,Liczba) 
(char,integer) 
(we,wy) lub (wy,we) lub (we,we) 


Dokonuje konwersji typu char na integer i odwrotnie (zgodnie z tablicą kodów 
ASCII) lub sprawdza, czy znak i liczba odpowiadają sobie. 


str_char(Napis,Znak) 
(string,char) 
(we,wy) lub (wy,we) lub (we,we) 


Przypisuje znak z Napisu zmiennej Znak (pod warunkiem, że Napis zawicra tylko jeden 


znak) lub wartość Znaku zmiennej Napis (tworząc napis jednoznakowy). Jeśli obydwa 
parametry są ukonkretnione, to porównuje ich wartości. 


str_int(Napis, Liczba) 
(string,integer) 
(we,wy) lub (wy,we) lub (we,we) 
Zamienia liczbę reprezentowaną w Napisie w postaci ciągu znaków na wartość numc- 
ryczną (integer) lub odwrotnie. Ewentualnie porównuje wartości obu parametrów. 
str_real(Napis, Liczba) 


(string,rea]) 
(we,wy) lub (wy,we) lub (we,we) 


Działa tak jak predykat str_int, ale dla liczb rzeczywistych. 
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upper_lower(Nap_wielkich, Nap małych) 
(string,string) 
(we,wy) lub (wy,we) lub (we,we) 
Przypisuje zmiennej Nap małych zawartość napisu Nap wielkich, zamieniając jedno- 
cześnie wielkie litery na małe, lub na odwrót — zmiennej Nap wielkich przypisuje 
zawartość napisu Nap małych, zamieniając jednocześnie małe litery na wielkie. Jeśli 
obydwa parametry są ukonkretnione, to porównuje ich wartości. 


Uwaga 


Jeśli trzeba, to konwersja między typami symbol i string oraz integer i real jest 
wykonywana automatycznie. 


D.2.9. Predykaty obsługi wewnętrznych dynamicznych baz danych 


asserta(Term) 
(wewnętrznaBazaDanych) 
(we) 


Dodaje do bazy danych nową klauzulę, przed wszystkimi klauzulami podanego predykatu. 


assertz(Term) 
(wewnętrznaBazaDanych) 
(we) 
Dodaje do bazy danych nową klauzulę, za wszystkimi klauzulami podanego predykatu. 


consu]t(NazwaKatalogowaP ] iku) 
(string) 
(we) 


Wczytuje nie nazwane bazy danych z pliku o nazwie NazwaKatalogowaP liku. 


consu]t(Nazwakata]ogowaP] iku,NazwaBazyDanych) 
(string, symbol ) 
(we) 


Wczytuje z pliku bazę danych o nazwie NazwaBazyDanych. 


retract(Fakt) 
(wewnętrznaBazaDanych) 


(we/wy) 


Usuwa z nie nazwanej bazy danych pierwszy fakt, który uzgadnia się z faktem po- 
danym jako parametr (Fakt). Predykat ten jest niedeterministyczny. 
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retract (Fakt,NazwaBazyDanych ) 
(wewnętrznaBazaDanych, symbo] ) 
(we/wy ,we) 
Usuwa z bazy danych o nazwie NazwaBazyDanych pierwszy fakt, który uzgadnia się 
z faktem podanym jako parametr (Fakt). Predykat ten jest niedeterministyczny. 


retractAl] (Fakt) 
(wewnętrznaBazaDanych) 
(we/wy) 


Usuwa z nie nazwanej bazy danych wszystkie fakty, które uzgadniają się z faktem 
podanym jako parametr. 


retractA] ] (Fakt ,NazwaBazyDanych) 
(wewnętrznaBazaDanych, symbo] ) 
(we/wy ,we) 


Usuwa z bazy danych o nazwie NazwaBazyDanych wszystkie fakty, które uzgadniają się 
z faktem podanym jako parametr. 


save(NazwaKatalogowaP1 i ku) 
(string) 
(we) 


Zapisuje zawartość nie nazwanej bazy danych w pliku. 


save(NazwaKata|ogowaP 1 iku, NazwaBazyDanych) 
(string, symbo] ) 
(we) 


Zapisuje zawartość bazy danych o nazwie NazwaBazyDanych w pliku. 


D.2.10.Predykaty obsługi zewnętrznych dynamicznych baz danych 


Zewnętrzne bazy danych, w przeciwieństwie do baz wewnętrznych, nie są zbiorami 
faktów, lecz zbiorami termów przechowywanych poza programem. Ich użycie umoż- 
liwia bezpośredni dostęp do danych nie będących częścią programu. 

W predykatach obsługi zewnętrznych baz danych używa się standardowej 
dziedziny place, obejmującej trzy stałe — in_memory, in_ems, in_file: 


— in memory  — przechowywanie bazy danych w pamięci operacyjnej, 
— in_ems — w pamięci rozszerzonej EMS, 
— in_file —w pliku. 


W celu korzystania z pamięci EMS, należy ją wcześniej udostępnić, np. za pomocą 

programu LIMSIM wywołanego w pliku konfiguracyjnym systemu CONFIG.SYS. 
Zewnętrzne bazy danych mogą mieć budowę łańcuchową lub drzewiastą. 

Poniżej opisano predykaty związane z obsługą baz danych o budowie łańcuchowej. 
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2. obsługą zewnętrznych baz danych o strukturze łańcuchowej są związane 
dwie specyficzne dziedziny: db selector i ref. Dziedzina db selector pełni w od- 
niesieniu do zewnętrznych baz danych analogiczną funkcję, jak dziedzina fi le w od- 
niesieniu do plików. Umożliwia ona zadeklarowanie kilku nazw symbolicznych zew- 
nętrznych baz danych, a tym samym korzystanie z kilku baz równocześnie (za pośred- 
nictwem tych nazw). Przykładowa deklaracja symbolicznych nazw zewnętrznych baz 
danych ma postać 


DOMAINS 
db_selector = dane; wyniki 
Dziedzina ref jest stosowana do określania pozycji poszczególnych termów we 
wskazanym łańcuchu. Pozycje te są określane przez tzw. numer odniesienia (ang. 
reference numbers). Za pomocą numeru określającego położenie termu można uzys- 
kać wartość tego termu, można go usunąć lub zastąpić innym. Można również 
znajdować term następny lub poprzedni (w stosunku do wskazanego) w danym 
łańcuchu. 


chain_delete(BazaDanych ,Nazwałańcucha) 
(db selector,string) 
(we ,we) 


Usuwa z bazy BazaDanych wszystkie termy należące do łańcucha o podanej nazwie. 
Predykat ten zawodzi, gdy wskazany łańcuch nie istnieje. 


chain_first(BazaDanych,NazwałŁańcucha ,NumerPierwszegoTermu) 
(db selector,string,ref) 
(we,we,wy) 


Wyznacza numer porządkowy pierwszego termu należącego w bazie BazaDanych do 
łańcucha o podanej nazwie. Predykat ten zawodzi, gdy w wskazany łańcuch nie 
zawiera ani jednego termu. 


chain_inserta(BazaDanych,NazwaŁańcucha,Dziedzina, Term, Numer) 
(db_selector,string,<domain>,<term>,ref) 
(we,we,we,we,wy) 


Dołącza do bazy BazaDanych Term należący do dziedziny Dziedzina jako pierwszy 
w łańcuchu o podanej nazwie. Wpisany term otrzymuje numer porządkowy Numer. 


chain_insertafter (BazaDanych Dziedzina ,Numer, Term, Numerl) 
(db_selector ,<domain>,ref,<term>,ref) 
(we ,we,we,we,wy) 


Dołącza do bazy BazaDanych Term należący do dziedziny Dziedzina — jako następny 
w stosunku do termu o numerze porządkowym Numer. Wpisany term otrzymuje numer 
porządkowy Numerl. 
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chain_insertz(BazaDanych ,Nazwałańcucha Dziedzina, Term, Numer) 
(db_selector,string,<domain>,<term>,ref) 
(we,we,we,we,wy) 


Dołącza do bazy BazaDanych Term należący do dziedziny Dziedzina — jako ostatni 
w łańcuchu o podanej nazwie. Wpisany term otrzymuje numer porządkowy Numer. 


chain_last(BazaDanych,Nazwałańcucha,NumerOstatniegoTermu) 
(db selector,string,ref) 
(we,we,wy) 


Wyznacza numer porządkowy ostatniego termu należącego w bazie BazaDanych do 


łańcucha o podanej nazwie. Predykat ten zawodzi, gdy wskazany łańcuch nie zawiera 
ani jednego termu. 


chain_next (BazaDanych, Numer ,NumerNastępnegoTermu) 
(db selector,ref,ref) 
(we,we,wy) 


Wyznacza numer porządkowy termu następnego w stosunku do termu o numerze 
Numer, znajdującego się w bazie BazaDanych. Predykat ten zawodzi, gdy term o numerze 
Numer jest ostatnim termem dowolnego łańcucha. 


chain_prev(BazaDanych,Numer,NumerPoprzedniegoTermu) 
(db selector,ref,ref) 
(we,we,wy) 


Wyznacza numer porządkowy termu poprzedniego w stosunku do termu o numerze 
Numer, znajdującego się w bazie BazaDanych. Predykat ten zawodzi, gdy term o numerze 
Numer jest pierwszym termem dowolnego łańcucha. 


chain_terms(BazaDanych ,NazwałŁańcucha ,Dziedzina, Term, Numer) 
(db selector,string,<domain>,<term>,ref) 
(we,we,we,wy,wy) lub (we,we,we,we/wy,wy) 
Podaje Term, wraz z numerem porządkowym Numer, należący do dziedziny Dziedzina, 


znajdujący się w bazie BazaDanych w łańcuchu o podanej nazwie. Predykat ten jest 
niedeterministyczny. 


db_chains(BazaDanych,Nazwałańcucha) 
(db selector,string) 
(we ,wy) 


Podaje nazwę łańcucha wchodzącego w skład bazy BazaDanych. Predykat ten jest 
niedeterministyczny. 


db close(BazaDanych) 
(db selector) 
(we) 


Nast 
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Zamyka zewnętrzną bazę danych BazaDanych. Jeżeli jest ona umieszczona w pliku, to 
następuje jego zamknięcie. 


db_copy(BazaDanych,NowaNazwaBazyDanych,NoweMiejsceSkładowania) 
(db_selector,string,place) 
(we ,we,we) 


Tworzy kopię bazy BazaDanych pod nową nazwą NowaNazwaBazyDanych, umieszczając ją 
we wskazanym miejscu. Kopiowana baza musi być wcześniej otwarta. 


db_create(BazaDanych, lazwaZewnętrznaBazy,MiejsceSkładowania) 
(db selector,string,place) 
(we ,we,we) 


Tworzy we wskazanym miejscu nową (pustą) zewnętrzną bazę danych o nazwie Nazwa- 
ZewnętrzaBazy, do której odwołania są możliwe (do chwili jej zamknięcia) za pośred- 
nictwem nazwy symbolicznej (selektora) BazaDanych. 


Przykład 


DOMAINS 
db _selector=dba 
imie=string 
wiek=integer 
czlowiek=osoba(imie,wiek) 
GOAL 
db create(dba,"datEMS"” ,in_ems), 
chain_inserta(dba,"Student",czlowiek,osoba(”Jan",22), ), 
db close(dba). $ 


db delete(NazwaZewnętrznaBazy,MiejsceSkładowania) 

(string,miejsce) 

(we ,we) 
Usuwa, składowaną we wskazanym miejscu, zewnętrzną bazę danych o nazwie Nazwa- 
ZewnętrznaBazy. Gdy jest ona umieszczona w pamięci (MiejsceSkładowania: in_memory 
lub in_ems), to następuje zwolnienie pamięci przez nią zajmowanej, a gdy jest umiesz- 
czona w pliku (MiejsceSkładowania: in_fi le) — skasowanie pliku. Jeżeli baza o podanej 
nazwie jest otwarta lub nie istnieje, to wystąpi błąd wykonania. 


db_open(BazyDanych,NazwaZewnętrznaBazy,MiejsceSkładowania) 
(db selektor,string,place) 
(we,we,we) 
Otwiera składowaną we wskazanym miejscu zewnętrzną bazę danych o nazwie Nazwa- 
ZewnętrznaBazy, zapewniając możliwość korzystania z przechowywanych w niej ter- 
mów. Odwołania do tej bazy są możliwe (do chwili jej zamknięcia) za pośrednictwem 
nazwy symbolicznej (selektora) BazaDanych. 


152 Dodatek. Kompilator Turbo Prolog — wersja 2.0 


term_delete(BazaDanych,NazwaŁancucha,NumerPorządkowy) 
(db selector,string,ref) 
(we,we,we) 


Usuwa term o podanym NumerzePorządkowym, znajdujący się w należącym do bazy 
BazaDanych łańcuchu o podanej nazwie. 


term_replace(BazaDanych,Dziedzina,NumerPorządkowy ,NowyTerm) 
(db selector,<dziedzina>, ref ,<term>) 
(we ,we,we,we) 


Zamienia term o podanym NumerzePorządkowym, należący do dziedziny Dziedzina, w ba- 
zie BazaDanych na term NowyTerm. 


D.2.11.Predykaty grafiki 


Predykaty obsługi grafiki w Turbo Prologu 2.0 są odpowiednikami procedur grafiki 
BGI implementowanych w Turbo Pascalu 4.0. Pozostały również predykaty imple- 


mentowane w wersji 1.1 Turbo Prologu (dotyczą one jednak tylko kart graficznych 
CGA i EGA i oferują znacznie skromniejsze możliwości). 


D.2.12.Predykaty współpracy z systemem operacyjnym 
i programowania sprzętu 


beep 
Generuje krótki sygnał dźwiękowy. 


bios(Nr,reg(AX,BX,CX,DX,SI,DI,DS,ES), 
reg(AX,BX,CX,DX,SI,DI,DS,ES)) 
(integer,reg,reg) 
(we,we,wy) lub (we,we,reg(wy,wy,... )) 
Wywołuje procedurę BIOS-u o numerze Nr. 

Dziedzina reg jest dziedziną standardową Turbo Prologu. Umożliwia bez- 
pośredni dostęp do rejestrów procesora (zarówno w celu odczytania ich zawartości, 
jak i wpisania nowej). Termy należące do tej dziedziny są obiektami złożonymi postac! 

reg(integer, integer ,integer,integer,integer,integer,integer,integer) 


przy czym poszczególne pola są powiązane odpowiednio z rejestrami: AX, BX, CX, 
DX, SI, DI, DS, ES. 


bitAnd(X,Y,Z) 
(integer,integer,integer) 
(we,we,wy) 
Wykonuje operację logiczną Z = (XandY). 
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bitLeft(X,Y,Z) 
(integer,integer,integer) 
(we,we,wy) 
Wykonuje operację logiczną Z = (X przesunięte o Y bitów w lewo). 


bitNot(X,Y) 
(integer, integer) 
(we,wy) 
Wykonuje operację logiczną Y = not X. 


bitór(X,Y,Z) 
(integer, integer,integer) 
(we,we,wy) 
Wykonuje operację logiczną (Z = X orY). 


bitRight(X,Y,Z) 
(integer,integer,integer) 
(we,we,wy) 
Wykonuje operację logiczną Z = (X przesunięte o Y bitów w prawo). 


bitXor(X,Y,Z) 
(integer,integer,integer) 
(we,we,wy) 
Wykonuje operację logiczną Z = (X xor Y). 


coml ine(Bufor_wiersza) 
(string) 
(we) 
Służy do wczytywania parametrów uruchomienia programu (wszystkie parametry są 
wczytywane jako jeden napis). 


date(Rok,Miesiąc,Dzień) 
(integer,integer, integer) 
(wy,wy,wy) lub (we,we,we) 
Odczytuje lub ustawia bieżącą datę zegara systemowego. 


dir(S$cieżka,Maska,NazwaPl iku) 

(string,string,string) 

(we ,we,wy) 
Wyświetla katalog plików i umożliwia wybranie jednej z nazw za pomocą klawiszy 
sterujących kursorem. Akceptuje się przez naciśnięcie klawisza Enter. Nazwa wybra- 
nego pliku jest przekazywana przez parametr NazwaPliku. Parametr Ścieżka określa 
dysk wraz ze ścieżką, z której chcemy wybierać plik. Parametr Maska określa, jaki 
podzbiór nazw plików z podanej ścieżki chcemy oglądać (można korzystać ze znaków 
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* 1 ?). Parametr Ścieżka może kończyć się znakiem N tylko wówczas, gdy oznacza 
główny katalog dysku. 


dir(Ścieżka,Maska,NazwaPliku,Podkatalogi ,ZmianaMaski ,WyświetlanieMaski 
(string,string,string,integer,integer, integer) 
(we ,we,wy ,we,we,we) 


Rozszerzona wersja predykatu dir. W porównaniu z pierwszą definicją dodatkowe 
trzy parametry oznaczają: 


Podkatalogi: 0 — nie pokazuje podkatalogów, 
1 — pokazuje podkatalogi (możliwość przechodzenia między 
podkatalogami), 
ZmianaMaski: 0 — nie można zmienić maski w trakcie wybierania pliku, 


1 — umożliwia zmianę maski, po naciśnięciu klawisza F4, 
WyświetlanieMaski : 0 — nie pokazuje bieżącej maski, 
1 — pokazuje bieżącą maskę. 


memByte (Segment, Offset ,Bajt) 
(integer,integer,integer) 
(we,we,we) lub (we,we,wy) 
Zapisuje wartość Bajt do komórki pamięci o adrcsie określonym przez paramctry 
Segment 1 Offset lub przypisuje zmiennej Bajt zawartość tej komórki. 


memWord (Segment ,Offset, Słowo) 


(integer ,integer, integer) 
(we,we,we) lub (we,we,wy) 


Działa podobnie jak predykat memByte, przy czym operacje dotyczą nie bajtu, lecz 
słowa (dwóch bajtów). 


port_Byte(NrPortu,Wartość) 


(integer, integer) 
(we,we) lub (we,wy) 


Odczytuje Wartość z portu we-wy o numerze NrPortu lub wysyła Wartość do tego portu. 


ptr_Dword(Napis, Segment ,Offset) 
(string,integer,integer) 
(we,wy,wy) lub (wy,we,we) 


Gdy zmienna Napis jest nieukonkretniona, to jest jej przypisywana (w postaci ciągu 
znaków) zawartość komórek pamięci od adresu określonego przez Segment i Offset do 
pierwszej komórki zawierającej bajt o wartości 0. W przeciwnym razie jest wyszu- 
kiwane pierwsze miejsce wystąpienia napisu Napis w pamięci i adres tego micjsca jest 
przypisywany zmiennym Segment i Offset. 
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sound(Czas,Częstot liwość) 
(integer,integer) 
(we ,we) 
Generuje dźwięk o zadanej częstotliwości i okresie trwania. Parametr Częstotliwość 
podaje się w hercach, a Czas — w setnych sekundy. 


system(PolecenieD0S) 
(string) 
(we) 
Wykonuje podane polecenie systemowe DOS-u. Podanie pustego polecenia ("") po- 
woduje przerwanie programu i przekazanie sterowania systemowi operacyjnemu. 
Powrót do programu jest wówczas możliwy przez podanie polecenia exit. 


"m 


time(Godziny,Minuty, Sekundy, SetneSek) 
(integer,integer,integer,integer) 
(wy,wy,wy,wy) lub (we,we,we,we) 
Podaje bieżący czas z zegara systemowego lub ustawia go zgodnie z wartościami 
parametrów. 


D.2.13.Predykaty redagowania 


display(Napis) 
(string) 
(we) 
Wyświetla zawartość zmiennej Napis w aktywnym oknie. Zawartość ta może być 
przeglądna za pomocą klawiszy sterujących kursorem. 


edit(Wej_napis,Wyj_napis) 
(string,string) 
(we,wy) 
Uaktywnia edytor kompilatora Turbo Prologu. Redagowaniu podlega tekst prze- 
kazany przez parametr Wej_napis. Po zakończeniu redagowania nowa postać tekstu 
jest przekazywana przez parametr Wyj_napis. Zakończenie redagowania następuje 
przez naciśnięcie kalwisza F10. Predykat edit zawodzi po naciśnięciu klawisza Esc. 


editMsg(Wej_napis,Hyj_napis,Nagłówekl „Nagłówek? „Komunikat ,Pozycja, 
NazwaP]ikuHelp,StatusPowrotu) 

(string,string,string,string,string,integer,string, integer) 

(we „wy ,we,we,we,we,we,wy) 
Wywołuje edytor Turbo Prologu. Tekst Wej_napis jest redagowany w aktywnym oknie. 
Po zakończeniu redagowania nowa postać tekstu jest przekazywana przez Wyj_napis. 
W nagłówku wyświetla teksty przekazane przez zmienne Nagłówek1 I Nagłówek2. Kursor 
początkowo jest ustawiony w tekście Wej_napis na znaku o pozycji Pozycja. Komunikat 
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jest wyświetlany na dole okna. Nazwą pliku ładowanego po naciśnięciu klawisza F1 


(help), jest NazwaPlikułelp. Wartość przekazana przez Kod wskazuje, w jaki sposób 
zostało zakończone redagowanie: 


Kod =0 przez naciśnięcie klawisza F10; 
Kod = 1 przez naciśnięcie klawisza Esc. 


D.2.14.Predykaty specjalne 


bound(Zmienna) 


Skutkuje, gdy Zmienna jest ukonkretniona. 
exit 

Kończy wykonywanie programu. 
fail 


Zawsze zawodzi (a więc wymusza nawrót). 


findAl 1 (Zmienna,Atom,ZmiennaListowa) 


Zbiera w listę (ZmiennaListowa) wartości przyjmowane przez Zmienną, będącą para- 


metrem wywołania predykatu Atom, podczas poszukiwania wszystkich jego rozwiązań 
(wynikających z mechanizmu nawracania). 


free(Zmienna) 
Skutkuje, gdy Zmienna jest nieukonkretniona. 
not (Atom) 
Skutkuje, gdy Atom reprezentuje cel, który zawodzi przy wywołaniu. 


random(WartośćLosowa) 
(real) 
(wy) 
Podaje losową wartość rzeczywistą z przedziału <0,1). 


random(MaksymalnaWartość,WartośćLosowa ) 
(integer,integer) 
(we,wy) 
Podaje losową wartość całkowitą z przedziału < 0,MaksymalnaWartość). 


storage(RozmiarStosu,RozmiarSterty,RozmiarŚladu) 
(real „real ,rea]) 


(wy,wy wy) 
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Podaje dostępną wielkość trzech obszarów pamięci używanych przez system Turbo 
Prologu. 


trace(Status) 
(symbol ) 
(we) lub (wy) 
Trace(on) włącza śledzenie, trace(off) wyłącza je (działa po użyciu dyrektywy kom- 
pilatora trace lub shorttrace). Predykat ten nigdy nie zawodzi. 


trap(Real i zowanyPredykat ,KodBłędu,PredykatObsługiBłędów) 
(<predykat>,integer,<predykat>) 
(*,wy,*) 
(* — w przypadku parametru będącego predykatem trudno mówić o jego charakterze 
wejściowym lub wyjściowym) 


Umożliwia sterowanie programem w razie wystąpienia błędu wykonania, czyli błędu 
powodującego przerwanie realizacji programu i wyjście z niego. Kolejne parametry 
oznaczają: 

RealizowanyPredykat  — wywołanie predykatu, którego realizacja ma być kontrolowa- 
na tak, aby ewentualne wystąpienie błędu wykonania nie 
spowodowało przerwania realizacji programu, 

KodBłędu — standardowe oznaczenie powstałego błędu, 

PredykatObsługiBłędów — predykat zapewniający odpowiednie zachowanie się 
programu w razie wystąpienia błędu. 


Przykład 


PREDICATES 
czytaniePliku 
blad(integer) 
GOAL 
czytaniePliku. 
CLAUSES 
czytaniePliku if write("Podaj nazwe pliku: "), readln(Nazwa), 
trap(file_str(Nazwa, Tekst),Blad,blad(Blad)), 
display(Tekst). 
blad(Blad) if write("Wystapil blad wykonania oznaczony” „numerem ", 
Blad), nl, 
czytaniePliku. + 


W programie tym predykat trap zapewnia kontrolę poprawności wykonania operacji 
czytania tekstu z pliku o podanej nazwie. W razie wystąpienia błędu podczas wykony- 
wania instrukcji file_str(Nazwa, Tekst) jest wywoływany predykat blad. Powoduje on 
wyświetlenie komunikatu informującego o wystąpieniu błędu, po czym użytkownik 
otrzymuje powtórną szansę podania nazwy pliku. 
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true 


Predykat, który nigdy nie zawodzi. 


D.3. Podział programu na moduły 


Dzieląc program na moduły możemy oddzielnie redagować i kompilować każdy 
z modułów. Jest to dogodne zwłaszcza przy częstych modyfikacjach programu. Poza 
tym w poszczególnych modułach możemy używać tych samych nazw dziedzin i pre- 
dykatów, co jest ważne np. wówczas, gdy program jest pisany przez wielu progra- 
mistów. W celu połączenia modułów w jeden program należy utworzyć specjalny plik, 
z rozszerzeniem PRJ, zawierający nazwy tych modułów. Ma on następującą postać: 


nazwa_pierwszego _modułu+ 
nazwa_drugiego modułu+ 


nazwa_ostatniego modułu 


Postać ta jest nazywana definicją project. Nazwa pliku zawierającego tę definicję jest 
identyczna z nazwą programu po kompilacji. Nazwy poszczególnych modułów są 
nazwami plików, w których moduły te są zapisane (nie zawierają one jednak rozsze- 
rzenia). W celu utworzenia pliku z definicją project, należy wybrać polecenie Edit PRJ 
file w ramach opcji Options, następnie podać jego nazwę i przejść do redagowania. 
Każdy z modułów powinien rozpoczynać się dyrektywą project: 

project nazwaProjektu 


przy czym nazwaProjektu jest nazwą pliku zawierającego definicję project. 

Komunikacja między modułami odbywa się za pomocą tzw. predykatów glo- 
balnych. Predykaty te definiuje się w sekcji GLOBAL PREDICATES, Dziedziny niestandar- 
dowe używane w definicjach predykatów globalnych muszą być zadeklarowane jako 
dziedziny globalne (GLOBAL DOMAINS). Deklaracja ta jest taka sama, jak deklaracja zwy- 
czajnych dziedzin, poza słowem kluczowym określającym nazwę sekcji programu. 
Definicje predykatów globalnych różnią się od omawianych dotychczas definicji pre- 
dykatów tym, że oprócz liczby i typów parametrów zawierają określenie kierunku 
przepływu informacji, tzn. parametrów wejściowych i wyjściowych dla każdego wa- 
riantu wywołania danego predykatu. Deklaracja predykatów globalnych ma więc 
postać: 


GLOBAL PREDICATES 
nazwaPredykatu(dl, d2, ...) — (k,k,...,k) (k,k,...,k) ... 


przy czym dq określają dziedziny parametrów, a każda z grup (k,k,...,k) określa 
jeden z wariantów wywołania danego predykatu; każdy parametr k może przyjmować 
jedną z dwóch wartości: i — parametr wejściowy, o — parametr wyjściowy. Na przykład 
deklaracja postaci 
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GLOBAL PREDICATES 
analizaSynt(dane, dane, instrukcja) - (i, o, o) 


oznacza, że predykat analizaSynt ma trzy parametry, z których pierwszy jest para- 
metrem wejściowym, a dwa następne wyjściowymi. 

Wszystkie moduły programu powinny korzystać z tych samych predykatów 
1 dziedzin globalnych. Najłatwiej można to osiągnąć zapisując wszystkie deklaracje 
globalne w jednym pliku. Plik ten dołączamy następnie do każdego z modułów, 
wykorzystując po dyrektywie project dyrektywę include postaci: 

include nazwaP] ikuzDeklaracjamiGlobalnymi 


Sposób kompilacji programu podzielonego na moduły przedstawiono w p. 6.6, po- 
sługując się podanym tam przykładem. 

Jeżeli dowolna definicja globalna zostanie zmieniona, to wszystkie moduły 
muszą być powtórnie skompilowane. 


D.4. Śledzenie programów 


Kompilator Turbo Prologu umożliwia śledzenie wykonywania programów. Podczas 
śledzenia korzysta się z okien Editor i Trace. Ich położenie na ekranie oraz rozmiary 
można zmieniać używając opcji Setup/Window size. 

Aby śledzić wykonywanie, należy na początku programu (przed wszystkimi 
deklaracjami) napisać dyrektywę trace. Po uruchomieniu programu możemy go reali- 
zować krok po kroku używając klawisza F10. W oknie Editor kursor wskazuje wów- 
czas wykonywaną instrukcję. W oknie Trace są natomiast wyświetlane wyniki realizacji 
każdej wykonanej operacji. Jeśli nie chcemy wyświetlania wszystkich informacji o re- 
alizacji programu, to dyrektywę trace zastępujemy dyrcktywą shorttrace, powodującą 
pomijanie niektórych informacji o powrotach z wykonywanych klauzul. 

Chcąc śledzić jedynie realizację wybranych fragmentów programu, należy 
oprócz dyrektywy trace użyć dodatkowo predykatu trace, opisanego w p. D.2.14. 
Powoduje on śledzenie realizacji programu od miejsca, w którym występuje wy- 
wołanie trace(on) aż do wywołania trace(off); predykat trace działa tylko wówczas, 
gdy na początku programu została umieszczona jedna z dyrektyw śledzenia — trace lub 
shorttrace. Jest również możliwe śledzenie wykonania wybranych predykatów. W tym 
celu po dyrektywie śledzenia (na początku programu) wymieniamy nazwy predy- 
katów, których realizację chcemy śledzić (oddzielając je przecinkami). 


D.5. Arytmetyka 


W Turbo Prologu występują następujące operatory arytmetyczne: 


+ dodawania, 
- odejmowania, 


160 Dodatek. Kompilator Turbo Prolog — wersja 2.0 


* mnożenia, 

/ dzielenia liczb rzeczywistych, 

div wyznaczania części całkowitej z dzielenia liczb całkowitych, 
mod wyznaczania reszty z dzielenia liczb całkowitych. 


Zaimplementowano również następujące funkcje i predykaty arytmetyczne: 


abs (X) — funkcja wyznaczająca wartość bezwzględną, 

arctan(X) — funkcja arcus tangens, 

cos(X) 

sin(X) — funkcje trygonometryczne (kąt podawany w radianach) 
tan(X) 

exp(X) — funkcja wykładnicza o podstawie e, 

In(X) — logarytm naturalny, 

1og(X) — logarytm dziesiętny, 

sqrt(X) — pierwiastek kwadratowy, 


random(Y) — predykat powodujący ukonkretnienie zmiennej Y wartością losową typu 
rea] z przedziału <0,1) 

random(X,Y)- predykat powodujący ukonkretnienie zmiennej Y wartością losową typu 
integer z przedziału <0,X) 

round(X)  — funkcja zaokrąglająca wartości rzeczywiste (wynik jest typu integer), 

trunc(X) _ — funkcja powodująca pominięcie części ułamkowej liczby rzeczywistej 
(wynik jest typu integer). 
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— Project 123 — date 153 
— Quit 134 — db_chains 150 
— Run 132 — db_close 150 
— Save 134 — db_copy 151 
— Setup 123, 132 — db_create 151 
— Write to 134 — db_delete 151 
operator 10 — db_open 151 
— arytmetyczny 26, 159 — deleteFile 138 
— relacji 26 — dir 153, 154 
— disk 138 
P — display 155 
plik 57 Roar 
—, Otwarcie do czytania 59 m €cimsg 
—, — — dopisywania 60 — eof 61, 138 
, . — existFile 61, 138 
—, — = modyfikowania 60 . 
_,—— pisania 59 m exit 156 
ME — fail 89, 156 
—, zamknięcie 59 fi 
— field_attr 142 
podcel 24 — field_str 142 
podlista 54 Gl z ag 
. . — fileMode 139 
porównywanie obiektów 27, 39 — filcPos 139 
powiązanie zmiennych 28 — ile_str 57, 136 
predykat 11, 13 — findAll 90, 156 
—append 54 — flush 139 
— assert 97 


— frameWindow 142 


Skorowidz 


— free 95, 156 

— frontChar 49, 144 

— frontStr 145 

* — frontTokcn 145 

— inKcey 37, 136 

— isName 145 

— keyPressed 136 

— makeWindow 143 
— member 53 

— memBytce 154 

— memWord 154 

— nl 37, 58, 137 

— not 12, 92, 156 

— openAppend 60, 139 
— openModify 60, 139 
— openRead 59, 139 
— openWrite 59, 139 
— port_Bytc 154 

— ptr_Dword 154 

— random 156, 160 

— readCahr 37 

— rcadChar 136 

— readDevicc 58, 140 
— readlnt 35, 37, 136 
— rcadln 37, 136 

— readRceal 37, 137 

— readTerm 137 

— removcWindow 143 
— renamcFile 140 

— repcat 94 


— retract 97, 105, 147, 148 


— retractAll 97, 105, 148 
— save 97, 105, 148 
— scr_attr 142 

— scr_chr 142 

— shiftWindow 144 
— sound 155 

— storage 156 

— str_char 146 

— str_int 146 

— str_len 146 

— str_real 146 

— system 155 

— term_delete 152 
— term_replace 152 
— time 155 

— trace 157 

— trap 157 

— true 94, 158 

— upper_lower 147 
— window_attr 144 
— window_str 144 

— write 35, 37, 58, 137 


— writeDevice 58, 140 
— writef 137 

predykaty globalne 158 
procedura 21 

— rekurencyjna 30 
pytanie 16, 24 

— złożone 25 


R 


redagowanie 155 

rcguła 12, 23 

rekurencja 30, 42, 105 

— prawostronna 31, 105 
rekurencyjne struktury danych 42 
relacja 11, 13, 21 

—, definiowanie 15 

rezolucja 16 


S 


sekcja CLAUSES 21 

— DATABASE 97 

— DOMAINS 21, 58 

— GLOBAL DOMATNS 158 
— GLOBAL PREDICATES 158 
— GOAL 3% 

— PREDICATES 21 

— programu 21 

śledzenie programów 73, 159 
spójnik and 10, 23, 24 

— if 23, 24 

—or 10, 26 

stała 10 

—, nazwa 21 

symbol funkcyjny 10 

— predykatowy 10 

— relacyjny 10 

— zdaniowy 10 


T 


term 11, 37 
— realizowalny 11 
— złożony 37 


U 


ukonkretnienie zmiennych 28 
unifikacja 17 

uniwersum Herbranda 15 
urządzenia we-wy 58 
uzgadnianie 17 

— list 47 

— obiektów złożonych 40 

— parametrów 28 


165 


166 Skorowidz 


W 


wnioskowanie metodą rezolucji 16 


/4 
zakres zmiennej 26 
założenie CWA 15 


zamiana struktury listowej na listę 51 
zasada rezolucji 16 


zmienna 10, 28 

— anonimowa 25 

—, nazwa 21 

— nieukonkretniona 28 
— swobodna 28 

— ukonkretniona 28 

—, zakres 26 

znacznik nawracania 68 


Mikrokomputery 


W serii ukazały się następujące pozycje: 
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Bielecki — Biblioteki ANSI C 

Bielecki - Od CdoC* * programowanie obiektowe w języku C 
Bielecki — Fortran 77 

Bielecki — Język C — interpretacja standardu 

Bielecki — Język Forth 

Bielecki — System operacyjny ISIS-II 

Bielecki — TopSpecd rozszerzona Modula-2 dla IBM PC 
Bielecki — Turbo Assembler Turbo Debugger 

Bielecki — Turbo C z grafiką dla IBM PC 

Bielecki — Turbo Pascal 5.5 wersja obiektowa 

Bielecki — Turbo Pascal wersja 3.0 

Bielecki — Turbo Pascal z grafiką dla IBM PC 

Bielecki — Wprowadzenie do języka C 

Boisgontier, S. Brebion — Basic dla wszystkich 


. Cellary, Z. Królikowski — Wprowadzenie do projektowania baz danych — dBase III 
. Cellary, K. Pielesiak — Leksykon Logo 
. Cellary, J. Rykowski — System operacyjny CP/J dla mikrokomputera Elwro 800 


Junior 


„ Cellary, W. Wieczerzycki — Wielozadaniowy system operacyjny czasu 


rzeczywistego IRM X-88 

Classen, U. Oefler — Programowanie systemów mikrokomputerowych 
Frelek — Commodorc 64 

W. Gorsline — Mikrokomputery 16-bitowe rodziny Intel 18086 

Hearn, M. P. Baker — Grafika mikrokomputerowa 


„ Iszkowski — Nauka programowania w języku BASIC dla początkujących 
„ Kalinowska-Iszkowska, W. Iszkowski — Klucze do Basicu 


Karczmarczuk — Mikroprocesor 280 
Lansdown — Grafika komputerowa 


. Link — Jak mierzyć, sterować i regulować za pomocą Basicu? 


Nafalski, M. Wójtowicz — Programowanie strukturalne w języku Turbo Basic 
Plaza, E. J. Wróbel — Systemy czasu rzeczywistego 

Ragen — Leksykon języka C 

Rotermund — WordPerfect 


„ Sikorski — Wprowadzenie do użytkowania mikrokomputerów 


Świniarski — System operacyjny CP/M 

Waligórski — Programowanie w języku Logo 

Wolisz — Podstawy lokalnych sieci komputerowych. Sprzęt sieciowy 
Wróbel — Asembler 8086/88 


W przygotowaniu: 


H. Małysiak, B. Pochopień, E. Wróbel — Procesory arytmetyczne 
Z Sołtys — System operacyjny Unix/Xenix 
A. Wolisz — Podstawy lokalnych sieci komputerowych. Oprogramownie 
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